Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Eins()
        Zwei()
    End Sub
 
    Private Sub Eins()
 
    End Sub
 
    Private Sub Zwei()
 
    End Sub
 
End Class