Lucky 7 ich hab mit dem buch von visual basic ein programm erstellt das "Lucky 7" heist. das programm soll 3 beliebige zahlen zwischen 0 und 9 erstellen. wenn die zahl 7 kommt soll es ein bild anzeigen.ich habs dann mal selber erstellt nur klappt es nicht wenn ich auch neuer versuch klicke kommt immer 0. ich hab mal kopiert wie ich es geschrieben habe ich hoffe ihr findet den fehler:
Private Sub Command1_Click()
Image1.Visible = False
Label1.Caption = Int(Rnt * 10)
Label2.Caption = Int(Rnt * 10)
Label3.Caption = Int(Rnt * 10)
If (Label1.Caption = 7) Or (Label2.Caption = 7) _
Or (Label3.Caption = 7) Then Image1.Visible = True
Beep
End Sub |