Private Sub sevText1_Click()
  With sevText1
    If .Tag = "Resize" Then
      .Tag = ""
      DoResize Me.hwnd, .hwnd, False
      .Refresh
      .AutoRedraw = False
    Else
      .Tag = "Resize"
      .AutoRedraw = True
      DoResize Me.hwnd, .hwnd, True
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de