Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.SpielfeldControl1.Spielstart()
  End Sub
 
  Private Sub SpielfeldControl1_Gewonnen(schritte As Integer) Handles _
    SpielfeldControl1.Gewonnen
    MsgBox(String.Format("Gratuliere, Du hast das Spiel nach {0} Verschiebungen" & _
    "Gewonnen!", schritte), MsgBoxStyle.Information)
  End Sub