Изменить вид кнопки при наведении курсора

Private Sub Комманда1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "Реагирую"
End Sub

MsgBox "Реагирую"

' ClickMe - written by Mr. Diwa del Mundo
'
'   email: [email]diwa@edsamail.com.ph[/email]
'
'
'   This is a freeware.
Dim x_1, y_1 As Integer
 
Private Sub cmdMain_Click()
End
End Sub
 
Private Sub cmdMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call randomizeIt
End Sub
 
Private Sub Form_Load()
Dim w, h As Integer
 
w = cmdMain.Width
h = cmdMain.Height
frmMain.Width = w
frmMain.Height = h
 
Call randomizeIt
 
End Sub
Function randomizeIt()
Dim sH, sW As Integer
Randomize Timer
 
sW = Screen.Width
sH = Screen.Height
 
sW = sW - 1500
sH = sH - 1500
 
x_1 = (Rnd * sW) + 1
y_1 = (Rnd * sH) + 1
 
    If (x_1 >= sW) Then
 
    sW = Fix(sW)
    x_1 = sW / 4
 
    End If
 
    If (y_1 >= sH) Then
    
    sH = Fix(sH)
    y_1 = sH / 2
    
    End If
 
x_1 = Fix(x_1)
y_1 = Fix(y_1)
 
frmMain.Left = x_1
frmMain.Top = y_1
 
End Function