--------------------------------------- --------------------------------------- -------------------------------------- Mario

Sonic

Drag Racer v3

Tetris

Pacman

Bowman

Flash Strike

Matrix

Black Knight

Snike

Form a 24 button 27 label 3 timer Private Sub Command1_Click() Command1.Enabled = 0 seç = Int(Rnd * (12)) Label25.Caption = seç Select Case seç Case 0 Command1.Caption = 1 Label1.Caption = "-----" Case 1 Command1.Caption = 5 Label2.Caption = "-----" Case 2 Command1.Caption = 10 Label3.Caption = "-----" Case 3 Command1.Caption = 25 Label4.Caption = "-----" Case 4 Command1.Caption = 50 Label5.Caption = "-----" Case 5 Command1.Caption = 75 Label6.Caption = "-----" Case 6 Command1.Caption = 100 Label7.Caption = "-----" Case 7 Command1.Caption = 200 Label8.Caption = "-----" Case 8 Command1.Caption = 300 Label9.Caption = "-----" Case 9 Command1.Caption = 400 Label10.Caption = "-----" Case 10 Command1.Caption = 500 Label11.Caption = "-----" Case 11 Command1.Caption = 750 Label12.Caption = "-----" End Select Label27.Caption = Label27.Caption - 1 If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then d = MsgBox("bankanın teklifi 10000", vbYesNo) If d = vbYes Then Label28.Caption = "Banknın Teklifi 10000"