• Home
 · 
• Games
 · 
• This is one those programs that you cannot touch the button. Enjoy!

This is one those programs that you cannot touch the button. Enjoy!

This is one those programs that you cannot touch the button. Enjoy!

Rate This is one those programs that you cannot touch the button. Enjoy!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Just add the following code and two command buttons,
'Add the Graphics as you Please!


Private Sub cmd1_Click()
  MsgBox " Good Job "
End Sub

Private Sub cmd1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  cmd2.Visible = True
  cmd1.Visible = False
End Sub

Private Sub cmd1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     MsgBox " This doesn't count for clicking the Buttons "
  End If
End Sub

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

Private Sub cmd2_Click()
  MsgBox " Good Job "
End Sub

Private Sub cmd2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  cmd1.Visible = True
  cmd2.Visible = False
End Sub

Private Sub cmd2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     MsgBox " This doesn't count for clicking the Buttons "
  End If
End Sub

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

Private Sub mnuExit_Click()
  End
End Sub