Maybe :
Private Const iBorder As Long = 2
Sub FirstSetting()
imgLight.Left = Range("C3").Left
imgLight.Top = Range("C3").Top
imgDark.Left = imgLight.Left
imgDark.Top = imgLight.Top
imgDark.Width = imgLight.Width
imgDark.Height = imgLight.Height
imgLight.Visible = False
imgDark.Visible = True
End Sub
Private Sub imgDark_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < iBorder Or X > imgDark.Width - iBorder Or Y < iBorder Or Y > imgDark.Height - iBorder Then
Else
imgDark.Visible = False
imgLight.Visible = True
End If
End Sub
Private Sub imgLight_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < iBorder Or X > imgLight.Width - iBorder Or Y < iBorder Or Y > imgLight.Height - iBorder Then
imgLight.Visible = False
imgDark.Visible = True
End If
End Sub
Bookmarks