[color=green]' zunächst die benötigten API-Deklarationen
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 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 Declare Function GetDesktopWindow Lib "user32" _
  () As Long
 
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_DRAWFRAME = &H20
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000

Public Sub DoResize(hWndParent As Long, _
  hWndObject As Long, ByVal bStatus As Boolean)
 
  Dim Result As Long
 
  Result = GetWindowLong(hWndObject, GWL_STYLE) Or _
    WS_THICKFRAME
  If Not bStatus Then _
    Result = Result - WS_THICKFRAME
 
  SetWindowLong hWndObject, GWL_STYLE, Result
  SetWindowPos hWndObject, hWndParent, 0, 0, 0, 0, _
    SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or _
    SWP_DRAWFRAME
End Sub

[color=green]' Größen-Änderung ein/ausschalten
Private Sub Command1_Click()
  With Command1
    Select Case .Tag
      Case "Resize"
        .Tag = ""
        DoResize Me.hwnd, Me.hwnd, False
      Case Else
        .Tag = "Resize"
        DoResize Me.hwnd, Me.hwnd, True
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de