Catch Me if U Can

by jay (2 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 10^th December 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Catch Me if U Can

Rate Catch Me if U Can



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

Download this snippet Add to My Saved Code

Catch Me if U Can Comments

No comments have been posted about Catch Me if U Can. Why not be the first to post a comment about Catch Me if U Can.

Catch Me if U Can

Catch Me if U Can Comments

Post your comment

Difficulty