 GetWindowLong(lhWnd, GWL_STYLE)
      txtStyles = Hex$(lR) &amp; ShowStyles(lR)
      lR = GetWindowLong(lhWnd, GWL_EXSTYLE)
      txtExStyles = Hex$(lR) &amp; ShowExStyles(lR)
   End If
End Sub
Private Function ShowStyles(ByVal lR As Long) As String
Dim sOut As String
   Style sOut, lR, WS_POPUP, "WS_POPUP"
   Style sOut, lR, WS_CHILD, "WS_CHILD"
   Style sOut, lR, WS_MINIMIZE, "WS_MINIMIZE "
   Style sOut, lR, WS_VISIBLE, "WS_VISIBLE"
   Style sOut, lR, WS_DISABLED, "WS_DISABLED "
   Style sOut, lR, WS_C