• Home
 · 
• Miscellaneous
 · 
• Move a button on a form

Move a button on a form

Move a button on a form

Rate Move a button on a form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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