Public Class Form1
 
    Private maximized As Boolean = False
    Private minimized As Size
 
    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.DoubleClick
        If maximized = False Then
            Me.Size = Screen.PrimaryScreen.WorkingArea.Size
            maximized = True
        Else
            Me.Size = minimized
            maximized = False
        End If
    End Sub
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shown
        minimized = Me.Size
        Me.Location = New Point(0, 0)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub
End Class