Public Class Form1
 
    Private Sub btn_Test1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Test1.Click
        lbl_Auswahl.Text = "             1"
        btn_Test1.BackColor = Color.Red
        btn_Test2.BackColor = Color.LightGray
        btn_Test3.BackColor = Color.LightGray
        btn_Test4.BackColor = Color.LightGray
        btn_Test5.BackColor = Color.LightGray
 
    End Sub
 
    Private Sub btn_Eingabe_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Eingabe.Click
        If Label1.Text = "<Nichts>" Or Label2.Text = "<Beispiel>" Or _
        Label3.Text = "<Beispiel2>" Then
MsgBox("Bitte geben Sie etwas ein:!")
exit sub
        End If
 
 
    End Sub
 
    Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_OK.Click
        If Label1.Text = "<Nichts>" Or Label1.Text = "<Beispiel>" Or _
        Label1.Text = "<Beispiel2>" Then
            Form2.Show()
            Exit Sub
        End If
 
        Form5.Show()
 
 
    End Sub
 
    Private Sub btn_Beispiel2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Beispiel2.Click
        Label1.Text = "2"
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.LightGray
        btn_Beispiel4.BackColor = Color.LightGray
        btn_Beispiel5.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.Red
 
    End Sub
 
    Private Sub btn_Beispiel3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Beispiel3.Click
        Label1.Text = "3"
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.Red
        btn_Beispiel4.BackColor = Color.LightGray
        btn_Beispiel5.BackColor = Color.LightGray
    End Sub
 
    Private Sub btn_Beispiel4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Beispiel4.Click
        Label1.Text = "4"
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.LightGray
        btn_Beispiel4.BackColor = Color.Red
        btn_Beispiel5.BackColor = Color.LightGray
    End Sub
 
    Private Sub btn_Beispiel5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Beispiel5.Click
        Label1.Text = "5"
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.LightGray
        btn_Beispiel4.BackColor = Color.LightGray
        btn_Beispiel5.BackColor = Color.Red
    End Sub
 
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Activated
        If ComboBox1.Text = "Name" Then
            lbl_Name.Text = "Wurst"
 
        End If
 
 
 
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.LightGray
        btn_Beispiel4.BackColor = Color.LightGray
        btn_Beispiel5.BackColor = Color.LightGray
    End Sub
 
 
 
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
           If ComboBox1.Text = "Name" Then
            lbl_Name.Text = "Wurst"
 
        End If
 
 
 
 
        btn_Beispiel1.BackColor = Color.LightGray
        btn_Beispiel2.BackColor = Color.LightGray
        btn_Beispiel3.BackColor = Color.LightGray
        btn_Beispiel4.BackColor = Color.LightGray
        btn_Beispiel5.BackColor = Color.LightGray
    End Sub
    End Sub
 
    Private Sub btn_Zurueck_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Zurueck.Click
        F_Main.Show()
        Me.Close()
    End Sub
End Class

Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
Label1.Text="Und tschüss"
 
        Timer1.Enabled = True
        Timer1.Interval = 10000
 
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.Close()
    End Sub
End Class