ent = 0) And Not (IsWindowVisible(lhWndParent) = 0)
      lHWnd = lhWndParent
      lhWndParent = GetParent(lHWnd)
   Loop
   GetParentFormhWNd = lHWnd
End Function

Private Function getScrollWParam(ByVal lCode As Long, ByVal lPos As Long) As
 Long
Dim wParam As Long
Dim lHIWord As Long
   wParam = lCode
   lHIWord = (lPos And &amp;H7FFF&amp;) * &amp;H10000
   If (lPos And &amp;H8000&amp;) Then
      lHIWord = lHIWord Or &amp;H80000000
   End If
   wParam = wParam Or lHIWord
   getScrollWParam = wParam
End 