• Home
 · 
• Games
 · 
• Catch Me if U Can

Catch Me if U Can

Catch Me if U Can

Rate Catch Me if U Can

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

MsgBox "Aap Ek Crore Rupaye Jeet Gaye!!!"
End Sub

Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = False
cmd2.Visible = True
cmd3.Visible = False
cmd4.Visible = False
End Sub

Private Sub cmd2_Click()
MsgBox "Aap Ek Crore Rupaye Jeet Gaye!!!"
End Sub

Private Sub cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = False
cmd2.Visible = False
cmd4.Visible = True
cmd3.Visible = False
End Sub

Private Sub cmd3_Click()
MsgBox "Aap Ek Crore Rupaye Jeet Gaye!!!"
End Sub

Private Sub cmd3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = True
cmd2.Visible = False
cmd3.Visible = False
cmd4.Visible = False
End Sub

Private Sub cmd4_Click()
MsgBox "Aap Ek Crore Rupaye Jeet Gaye!!!"
End Sub

Private Sub cmd4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = False
cmd2.Visible = False
cmd3.Visible = True
cmd4.Visible = False
End Sub

Private Sub Form_Load()
frmmain.Hide
cmd1.Visible = True
cmd2.Visible = False
cmd3.Visible = False
cmd4.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Maza aaya ki nahin?"
End Sub

Private Sub Timer1_Timer()
MsgBox "Tired?! Better Luck Next Time"
End Sub