Advertisement
Guest User

Untitled

a guest
Dec 18th, 2014
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. Public Sub formsetup()
  2.  
  3. If normalwindow = True Then
  4. Me.Size = New Size(466, 459)
  5. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
  6. Me.Opacity = 100
  7. Me.ShowInTaskbar = True
  8. Me.ShowIcon = True
  9. Me.ControlBox = True
  10. Me.Visible = True
  11.  
  12. Else
  13. Me.Size = New Size(0, 0)
  14. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  15. Me.Opacity = 0
  16. Me.ShowInTaskbar = False
  17. Me.ShowIcon = False
  18. Me.ControlBox = False
  19. Me.Visible = False
  20. ' Panel1.Dispose()
  21. ' TextBox2.Dispose()
  22.  
  23. End If
  24. Application.DoEvents()
  25. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement