Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect _
  As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
Public Function IsOver(hWnd As Long) As Boolean
  Dim ControlPos As RECT, CursorPos As POINTAPI
 
  GetCursorPos CursorPos
  GetWindowRect hWnd, ControlPos
 
  IsOver = False
 
  If CursorPos.X > ControlPos.Left And CursorPos.X < ControlPos.Right Then
    If CursorPos.Y > ControlPos.Top And CursorPos.Y < ControlPos.Bottom Then
      IsOver = True
    Else
 
    End If
  Else
 
  End If
 
End Function

Private sHover As Boolean

Private Sub Effect()
  If IsOver(picBild.hWnd) Then
    If Not sHover Then
      picBild.Picture = LoadPicture(...)
      tmrHover.Enabled = True
      sHover = True
    End If
  Else
    If sHover Then
      picBild.Picture = LoadPicture(...)
      tmrHover.Enabled = False
      sHover = False
    End If
  End If

{brigens> Ein Kezboard/Treiber ist v;llig [berfl[ssig