Option Explicit
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
Command1.Enabled = False
Command2.Visible = True
Command2.Enabled = True
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = True
Command1.Enabled = True
Command2.Visible = False
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Form1.Caption = "Meaning of Life"
Form1.BorderStyle = 1
Command2.Visible = False
Command2.Enabled = False
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub