sorPos tP
   lhWnd = WindowFromPoint(tP.x, tP.y)
   txthWnd = Hex$(lhWnd)
   txtClassName = ""
   txtStyles = ""
   txtParenthWnd = ""
   If lhWnd &lt;&gt; 0 Then
      txtParenthWnd = GetWindow(lhWnd, GW_OWNER)
      sBuf = String$(255, 0)
      lR = GetClassName(lhWnd, sBuf, 255)
      If lR &gt; 0 Then
         iPos = InStr(sBuf, vbNullChar)
         If (iPos &gt; 0) Then
            txtClassName = Left$(sBuf, iPos - 1)
         Else
            txtClassName = sBuf
         End If
      End If
      lR =