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