C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\ProjectTemplates\VisualBasic\Windows\1033\WindowsApplication\Form1.vb

C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\ProjectTemplatesCache\VisualBasic\Windows\1033\WindowsApplication\Form1.vb

Public Class Form1
 
#Region " Form "
 
        ' Load
        Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
            ' Put some code here...
        End Sub
 
        ' Shown
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
            ' Put some code here...
        End Sub
 
        ' Closing
        Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
            ' Put some code here...
        End Sub
 
#End Region
 
#Region " Buttons "
 
        ' Button 1 [CLICK]
         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            ' Put some code here...
         End Sub
 
        ' Button 2 [CLICK]
        ' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            ' Put some code here...
        ' End Sub
 
#End Region
 
#Region " Miscellaneous Methods "
 
        Private Sub Procedure1()
            ' Put some code here...
        End Sub
 
        Private Function Function1(ByVal Something As Object) As Object
            ' Put some code here...
            Return Something
        End Function
 
#End Region
 
End Class

Public Class Form1
 
    Dim WithEvents Timer1 As New Timer With {.Interval = 10, .Enabled = True}
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        InfiniteProgressBar(ProgressBar1)
    End Sub
 
    Private Sub InfiniteProgressBar(ByVal ProgressBar As ProgressBar, _
                                    Optional value As Int32 = 1)
 
        Select Case ProgressBar.Value
 
            Case Is < ProgressBar.Maximum
                ProgressBar.Value += value
            Case Is >= ProgressBar.Maximum ' Si el valor es igual o mayor que el valor máximo del rango...
                ProgressBar.Value = ProgressBar.Minimum ' Seteamos el valor mínimo (0) a la barra de progreso...
 
        End Select
 
    End Sub
 
End Class

No es posible crear una nueva página de seguridad para la pila

sub loquesea(sender as object) handles algún evento cualquiera
     sender.propiedad = uno(32)
end sub
 
function uno(valor as int32)
    return dos(valor)
end sub
 
function dos(valor as int32)
    ' hacer cosas...
    return valor modificado
end function

r.Next(0, 35) 'Esto no se muy bien que hace xD

rand(0, $size - 1)

    Private Function Random_String(ByVal Length As Int32, _
                                   Optional ByVal Characters As String = _
                                   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" _
                                  ) As String
 
        Select Case Length
 
            Case Is < 1 ' Is 0 or negative
                Throw New Exception("Length must be greater than 0")
 
            Case Else ' Is greater than 0
 
                Dim str As String = String.Empty
                Dim rand As New Random, rand_length As Int32 = Characters.Length
 
                Do Until str.Length = Length
                    str &= Characters.Substring(rand.Next(0, rand_length), 1)
                Loop
 
                Return str
 
        End Select
 
    End Function