Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Else
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End If
End Sub