Public Class Form1
    Private myArray(4) As String 'Da nichts berechnet wird, genügt ein 
    ' String-Array
 
    Private Sub Löschen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        DeleteData()
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox4.Text = " "
        TextBox5.Text = " "
        TextBox6.Text = " "
        TextBox1.Select() 'für Fokus
 
    End Sub
 
    Private Sub cmdBestätigen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        SetData()
    End Sub
 
    Private Sub cmdAnzeigen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        ShowData()
    End Sub
 
    Private Sub ShowData()
        TextBox3.Text = myArray(0) & " " & myArray(1) & " " & myArray(2) & " " _
          & myArray(3) & " " & myArray(4) & " "
    End Sub
 
    Private Sub SetData()
        myArray(0) = TextBox1.Text
        myArray(1) = TextBox2.Text
        myArray(2) = TextBox4.Text
        myArray(3) = TextBox5.Text
        myArray(4) = TextBox6.Text
    End Sub
 
    Private Sub DeleteData()
        myArray(0) = ""
        myArray(1) = ""
        myArray(2) = ""
        myArray(3) = ""
        myArray(4) = ""
        ShowData()
    End Sub
 
    Private Sub Anzeige_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox3.TextChanged
 
    End Sub
 
    Private Sub tag_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox4.TextChanged
 
    End Sub
 
    Private Sub monat_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox5.TextChanged
 
    End Sub
 
    Private Sub jahr_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox6.TextChanged
 
    End Sub
 
    Private Sub name_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub cmdBeenden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        End
    End Sub
 
    Private Sub vorname_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub lblName_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub lblVorname_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
 
    Private Sub Geburtsdatum_Enter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GroupBox1.Enter
 
    End Sub
 
    Private Sub lblTag_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label3.Click
 
    End Sub
 
    Private Sub lblMonat_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label4.Click
 
    End Sub
 
    Private Sub lblJahr_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label5.Click
 
    End Sub
 
    Private Sub lblAusgabe_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label7.Click
 
    End Sub
 
    Private Sub lblBeschreibung_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label6.Click
 
    End Sub
 
    Private Sub lblAnweisung_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label8.Click
 
    End Sub
End Class