Public Class Form1
 
    Inherits System.Windows.Forms.Form
 
    	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
	        ControlBox = False
        	OKbutton.Enabled = False
	    End Sub
 
	Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles CheckBox1.CheckedChanged
 
	        If CheckBox1.Checked Then
        	    OKbutton.Enabled = True
	        End If
 
	        If Not CheckBox1.Checked Then
        	    OKbutton.Enabled = False
	        End If
	    End Sub
	    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles OKbutton.Click
        	Close()
	    End Sub
 
	    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MenuItem6.Click
        	MsgBox("Lesen Sie den Text, setzen Sie das Häckchen und bestätigen" & _
        "damit, dass Sie die Regeln gelesen und akzeptiert haben. Beenden Sie" & _
        "dann das Programm durch betätigen des OK - Buttons.", , "Hinweis")
	    End Sub
 
	    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MenuItem7.Click
	        MsgBox("Für fragen hierzu und zu Technischen problemen, steht Ihnen" & _
"die IT-Hotline unter der 1100 gern zur Verfügung. Bitte sehen Sie davon ab," & _
"den Webmaster (unter 1385 zu erreichen) anzurufen, sollte es einmal Technische" & _
"probleme geben.", , "Hinweis")
	    End Sub
 
	    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MenuItem5.Click
	        MsgBox("Jedesmal, wenn Sie Ihren PC starten und sich an das" & _
"Windowssystem anmelden wollen.", , "Hinweis")
	    End Sub
End Class