by ujjwal deshpande (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 19th September 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Move a button on a form
End
End Sub
Private Sub Command5_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Command9.Visible = True
MsgBox "wann to play more"
End Sub
Private Sub Command6_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = True
Command6.Visible = False
Command5.Visible = True
Label1.Visible = True
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Form1.BackColor = RGB(100, 100, 100)
End Sub
Private Sub Command7_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = True
Command4.Visible = False
Command7.Visible = False
Command6.Visible = True
Label1.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Form1.BackColor = RGB(70, 255, 100)
End Sub
Private Sub Command8_Click()
Command1.Visible = False
Command2.Visible = True
Command3.Visible = False
Command4.Visible = False
Command8.Visible = False
Command7.Visible = True
Label1.Visible = False
Label3.Visible = False
Label4.Visible = True
Label5.Visible = False
Form1.BackColor = RGB(255, 255, 255)
End Sub
Private Sub Command9_Click()
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Command9.Visible = False
Command8.Visible = True
Label1.Visible = False
Label3.Visible = True
Label4.Visible = False
Label5.Visible = False
Timer1.Enabled = False
Timer2.Enabled = False
Form1.BackColor = RGB(255, 75, 75)
End Sub
Private Sub Form_Load()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Form1.BackColor = RGB(150, 150, 150)
End Sub
Private Sub Timer1_Timer()
Label1.Visible = False
End Sub
Private Sub Timer2_Timer()
Label1.Visible = True
End Sub