Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
Private Sub Command1_Click()
MsgBox "Hallo Welt"
End Sub
End Sub

Private Sub Blabla()
' Code
End Sub
 
Private Sub Blabla2()
' Code
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
MsgBox("Hallo Welt")
 
End Sub