te Const WS_EX_STATICEDGE = &amp;H20000
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal
 hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long,
 ByVal cy As Long, ByVal wFlags As Long) As Long
Private Enum ESetWindowPosStyles
    SWP_SHOWWINDOW = &amp;H40
    SWP_HIDEWINDOW = &amp;H80
    SWP_FRAMECHANGED = &amp;H20 ' The frame changed: send WM_NCCALCSIZE
    SWP_NOACTIVATE = &amp;H10
    SWP_NOCOPYBITS = &amp;H100
    SWP_NOMOVE = &amp;H2
    SWP_NOOWNERZ