Private Sub Campit_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 If CheckLogin.Text <> "0" Then 
        start()
Else
 
Form2.show()
'''''Hier muss der Vorgang gestoppt werden und bis auf das Beenden von Form2 
' gewartet werden!
  start()
 
End If
 
End Sub