Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdLogin.Click
        Call Form_Load('was muss hier stehen?)
    End Sub
 
 
 
Private Function Form_Load('was muss hier stehen?) As Object
        form2.Show('was muss hier stehen?)
    End Function