ING"
   Style sOut, lR, WS_EX_LEFTSCROLLBAR, "WS_EX_LEFTSCROLLBAR"
   Style sOut, lR, WS_EX_RIGHTSCROLLBAR, "WS_EX_RIGHTSCROLLBAR"

   Style sOut, lR, WS_EX_CONTROLPARENT, "WS_EX_CONTROLPARENT"
   Style sOut, lR, WS_EX_STATICEDGE, "WS_EX_STATICEDGE"
   Style sOut, lR, WS_EX_APPWINDOW, "WS_EX_APPWINDOW"

   ShowExStyles = sOut
End Function
Private Sub Style( _
      ByRef s As String, _
      ByVal lAll As Long, _
      ByVal lBit As Long, _
      ByVal sString As String _
   )
   If (lAll And lBit) = lBit T