mouse over effects

[ice_531]

i thought i'd go ahead and post what i did to the code mc told..

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' will change the background color for the command button
With Command2
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
Command2.BackColor = &HE0E0E0
 Else
SetCapture .hwnd
Command2.BackColor = vbWhite
End If
End With
End Sub

and had to do one for every command button lol.. so now i have a cool mouseover effect on my buttons