Sanırım Onuda Buldum 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

Arkadaşlar. Şöyle Bir Program Yapıorum. Yanlız Şans Değeri Lazım. Mesela silah +7 Silah +8 Yaparken Command a +8 Olma Şans Yüzdesi Yapmak İstiyorum Herhangi Bir Fikri Olan