OP, "WS_TABSTOP"
   Style sOut, lR, WS_MINIMIZEBOX, "WS_MINIMIZEBOX"
   Style sOut, lR, WS_MAXIMIZEBOX, "WS_MAXIMIZEBOX"
   ShowStyles = sOut
End Function
Private Function ShowExStyles(ByVal lR As Long)
Dim sOut As String
   Style sOut, lR, WS_EX_DLGMODALFRAME, "WS_EX_DLGMODALFRAME"
   Style sOut, lR, WS_EX_NOPARENTNOTIFY, "WS_EX_NOPARENTNOTIFY"
   Style sOut, lR, WS_EX_TOPMOST, "WS_EX_TOPMOST"
   Style sOut, lR, WS_EX_ACCEPTFILES, "WS_EX_ACCEPTFILES"
   Style sOut, lR, WS_EX_TRANSPARENT, "WS_EX_TRANSPARENT