Sub Globals
Dim Zufall As Integer
End Sub
Sub App_Start
Form1.Show
Zufall = Rnd(1, 6)
For i = 1 To 6
AddButton("Form1", "Btn" & i, 100 ,25 * i,50,20,i)
AddEvent("Btn" & i,Click, "Btn_Click")
Next
End Sub
Sub Btn_Click
If Sender.text = Zufall Then
Msgbox("Ja")
Else
Msgbox("Nein")
End If
End Sub