Private Sub Bt1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
With Bt1
If x < 10 Or x > .Width - 10 Or Y < 10 Or Y > .Height - 10 Then .BackColor = &H8000000F Else .BackColor = &HFF&
End With
End Sub