Public Class frmButton
 
    Dim formsize As New Size
    Dim formstate As FormWindowState = FormWindowState.Normal
    Dim formcollapsed As Boolean = False
 
    Dim WithEvents btnMinimize As New Button With _
        {.Parent = Me, .Width = 20, .Height = 100, .Text = "False"}
 
 
    Private Sub frmButton_Load(sender As System.Object, _
            e As System.EventArgs) Handles MyBase.Load
        Me.MinimumSize = btnMinimize.Size
        formsize = Me.Size
        Me.WindowState = FormWindowState.Normal
    End Sub
 
 
    Private Sub btnMinimize_MouseDown(sender As Object, _
            e As System.Windows.Forms.MouseEventArgs) Handles _
            btnMinimize.MouseDown
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            'Umschalten des Formulars durch Button-Druck mit rechter Maustaste
            If formcollapsed Then
                Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
                Me.WindowState = formstate
                Me.Size = formsize
            Else
                formstate = Me.WindowState
                Me.WindowState = FormWindowState.Normal
                formsize = Me.Size
                Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
                Me.Size = Me.MinimumSize
            End If
            formcollapsed = Not formcollapsed
            btnMinimize.Text = formcollapsed.ToString
        End If
    End Sub
 
    Private Sub btnMinimize_MouseMove(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles btnMinimize.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Left And formcollapsed Then
            'Bewegen des kollabierten Formulars bei gedrückter linker Maustaste
            Me.Location = _
            New Point(Me.Location.X + e.Location.X, Me.Location.Y + _
            e.Location.Y)
        End If
    End Sub
 
End Class