Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub formsetup()
- If normalwindow = True Then
- Me.Size = New Size(466, 459)
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
- Me.Opacity = 100
- Me.ShowInTaskbar = True
- Me.ShowIcon = True
- Me.ControlBox = True
- Me.Visible = True
- Else
- Me.Size = New Size(0, 0)
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- Me.Opacity = 0
- Me.ShowInTaskbar = False
- Me.ShowIcon = False
- Me.ControlBox = False
- Me.Visible = False
- ' Panel1.Dispose()
- ' TextBox2.Dispose()
- End If
- Application.DoEvents()
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement