qRaLL

Program her çevir butonuna tıklandığında uğurlu yedi sayısı geldiğinde resimi gösterir ve beep sesi çıkararır

İki adet Buton ,buton isimleri çevir ve son olucak (properties-caption alanından değiştirebilirsiniz) Üç adet Label bir adet programa uygun resim birde text ekleyip texte" Uğurlu Yedi" yazınız.
________________________________
Private Sub Command1_Click()
Image1.Visible = False ' paraları gizle
Label1.Caption = Int(Rnd * 10) ' sayıları seç
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
'resim yazılarından biri 7 ise paraları göster ve biple
If (Label1.Caption = 7) Or (Label2.Caption = 7) _
Or (Label3.Caption = 7) Then
Image1.Visible = True
Beep
End If
End Sub

Private Sub Command2_Click()
End
End Sub