Alttaki koda en sondaki end if ten önce CursorOnTaskbar = True bunu ekledim Modül adı modAPIWindows
Kod:
Public Function CursorOnTaskbar() As Boolean
' This function checks, wether the mousepointer is actually above
' the Taskbar
Dim curPoint As POINTAPI
Dim lngRetCur As Long
Dim lngRetTbarPos As Long
Dim barData As APPBARDATA
' Get the actual Cursor-Position (stored in curPoint)
lngRetCur = GetCursorPos(curPoint)
' This function is retrieving the coordinates of the windows Taskbar,
' which are stored in the rc-member of the APPBARDATA-Struct.
lngRetTbarPos = SHAppBarMessage(ABM_GETTASKBARPOS, barData)
If (lngRetCur <> 0) And (lngRetTbarPos <> 0) Then
If (curPoint.X > barData.rc.Left) And _
(curPoint.X < barData.rc.Right) And _
(curPoint.Y < barData.rc.Bottom) And _
(curPoint.Y > barData.rc.top) _
Then
CursorOnTaskbar = True
End If
CursorOnTaskbar = True
End If
End Function