Advertisement
Guest User

Untitled

a guest
May 26th, 2015
215
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. Private Sub MACIERZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MACIERZToolStripMenuItem.Click
  2. If gb1.Visible Then
  3. gb1.Hide()
  4. gb2.Hide()
  5. picbox2.Hide()
  6. lbl2.Hide()
  7. lbl1.Show()
  8. Else
  9. gb1.Show()
  10. gb2.Hide()
  11. lbl2.Hide()
  12. picbox2.Hide()
  13. End If
  14. End Sub
  15.  
  16. Private Sub lbl1_Click(sender As Object, e As EventArgs) Handles lbl1.Click
  17. lbl2.Show()
  18. picbox2.Show()
  19. End Sub
  20. Private Sub DODAWANIEIODEJMOWANIEMACIERZYToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DODAWANIEIODEJMOWANIEMACIERZYToolStripMenuItem.Click
  21.  
  22.  
  23. If Not gb2.Visible Then
  24. gb1.Hide()
  25. gb2.Show()
  26. Else
  27. gb1.Hide()
  28. gb2.Hide()
  29. End If
  30.  
  31. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement