Форма в виде панели

Option Explicit
 
'// стиль окна
Private Declare Function GetWindowLong Lib 'user32' Alias 'GetWindowLongA' (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000                  '  WS_BORDER Or WS_DLGFRAME
Private Const WS_DLGFRAME = &H400000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const WS_THICKFRAME = &H40000
Private Const WS_SIZEBOX = WS_THICKFRAME
Private Const WS_CHILD = &H40000000
Private Const GWL_HWNDPARENT = (-8)
Private Const GWL_STYLE = (-16)
 
'// константы для DrawEdge
Private Const BDR_RAISEDOUTER = &H1
Private Const BDR_SUNKENOUTER = &H2
Private Const BDR_RAISEDINNER = &H4
Private Const BDR_SUNKENINNER = &H8
 
Private Const BF_BOTTOM = &H8
Private Const BF_LEFT = &H1
Private Const BF_RIGHT = &H4
Private Const BF_TOP = &H2
 
Private Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
Private Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Declare Function DrawEdge Lib 'user32' (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Private Declare Function SetRect Lib 'user32' (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
 
Private Sub Form_Paint()
Dim lStyle As Long
Dim TRect As RECT
 
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
 
lStyle = lStyle And Not ( _
    WS_BORDER Or WS_CAPTION Or WS_DLGFRAME Or WS_EX_DLGMODALFRAME Or _
    WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_SYSMENU Or _
    WS_SIZEBOX Or WS_THICKFRAME _
    )
    
   SetWindowLong Me.hwnd, GWL_STYLE, lStyle
   Me.WindowState = vbMaximized
 
   Me.ScaleMode = vbPixels
   SetRect TRect, 10, 10, Me.ScaleWidth - 10, Me.ScaleHeight - 10
   DrawEdge Me.hdc, TRect, EDGE_ETCHED, BF_RECT
End Sub

'// 'Вдавленная' панель
DrawEdge Me.hdc, TRect, BDR_SUNKENOUTER, BF_RECT
   
'// 'выпуклая' панель
DrawEdge Me.hdc, TRect, BDR_RAISEDINNER, BF_RECT

'// Задать размеры прямоугольника
SetRect TRect, 0, 0, Me.ScaleWidth, Me.ScaleHeight
или
SetRect TRect, 1, 1, Me.ScaleWidth - 1, Me.ScaleHeight - 1
'// Нарисовать 'панель'
DrawEdge Me.hdc, TRect, BDR_RAISEDINNER, BF_RECT