Guest User

Untitled

a guest
Dec 16th, 2016
25
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4. Dim Bond1 As Integer
  5. Bond1 = "1"
  6. If Bond1 = "1" Then
  7. Text1.Text = "111"
  8. End If
  9. End Sub
  10.  
  11. Private Sub Command1_Click()
  12. Text1.Text = "222"
  13. Label1.Caption = "22"
  14. Dim Bond2 As Integer
  15. Bond2 = "2"
  16. If Bond2 = "2" Then
  17. Text1.Text = "333"
  18. Label1.Caption = "33"
  19. End If
  20. End Sub
RAW Paste Data