Nadds

About Page | VB Proj

Sep 5th, 2016
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. ' About
  2. Private Sub Page_Click()
  3. If Page.Value = vbChecked Then
  4. Page.Value = vbUnchecked
  5. Exit Sub
  6. End If
  7. Shell "explorer http://www.nicholaisilvastudios.weebly.com"
  8. End Sub
  9.  
  10. Private Sub ReturnBut_Click()
  11. If ReturnBut.Value = vbChecked Then
  12. ReturnBut.Value = vbUnchecked
  13. Exit Sub
  14. End If
  15. Unload Me
  16. Main.Visible = True
  17. End Sub
Add Comment
Please, Sign In to add comment