Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        ' Aufgabe 1: Schriftgröße ändern
 
        Button1.Font = New Font("Arial", 14)
 
        ' Aufgabe 2: Beschriftung aus 2 Zeilen
 
        Button1.Text = "Button1" + Environment.NewLine + "Linie2"
 
 
        System.Threading.Thread.Sleep(5000) ' Sleep for 5 seconds
 
        Button1.Text = "Button2"
 
 
    End Sub