vb şans oyunu

[aLayıNaiSyaN]

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

kodlar çalışıyor bizzat denenmiştir....