Guest User

Untitled

a guest
Jan 17th, 2019
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Command1_Click()
  2. Me.Height = 6925: Text1.SetFocus
  3. Command1.Visible = False
  4. Command2.Visible = True
  5.  
  6. End Sub
  7.  
  8. Private Sub Command2_Click()
  9. Me.Height = 734: Text1.SetFocus
  10. Command1.Visible = True
  11. Command2.Visible = False
  12. End Sub
  13.  
  14. Private Sub Form_Load()
  15. MsgBox ("You Want To ... ")
  16. End Sub
Add Comment
Please, Sign In to add comment