Private Sub Timer1_Timer()
GetCursorPos p
 
If p.X * Screen.TwipsPerPixelX - Me.Left > LItem.Left And p.X * _
  Screen.TwipsPerPixelX - Me.Left < LItem.Left + LItem.Width _
And p.Y * Screen.TwipsPerPixelY - Me.Top > LItem.Top And p.Y * _
Screen.TwipsPerPixelY - Me.Top < LItem.Top + LItem.Height Then
MsgBox "Test"
End If
End Sub