bu oyun formu actığınızda etkin olacak ve başlayacaktır ve 5sn icinde frmtr.com/programlama yazarsanız kazanırsınız yazamassanız kaybedersiniz

formunuza bir textbox,bir label(5) birde timer ekleyin.

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = 5


End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Label1.Caption = "0" Then
MsgBox "sure doldu"
If Text1.Text = "frmtr.com/programlama" Then

MsgBox "kazandınız"
End
Else
MsgBox "kaybettiniz"
Timer1.Enabled = False
Form1.Enabled = False
End
End If
End If
End Sub


işte umarım seversiniz...
__________________