Como puedo hacer cambios de estado a un boton en VB?

[Jasall]

pon la propiedad del command1 "Style = 1"

Código:

Dim ancla As Boolean
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HFF&
ancla = False
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If ancla = False Then
  Command1.BackColor = &H8000000D
  ancla = True
 End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If ancla = True Then
  Command1.BackColor = &H8000000F
  ancla = False
 End If
End Sub
Private Sub Form_Load()
ancla = True
End Sub