by Best Programmer (4 Submissions)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16th May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is one those programs that you cannot touch the button. Enjoy!
'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
No comments have been posted about This is one those programs that you cannot touch the button. Enjoy!. Why not be the first to post a comment about This is one those programs that you cannot touch the button. Enjoy!.