Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Private Sub Form_Load()
- Dim Bond1 As Integer
- Bond1 = "1"
- If Bond1 = "1" Then
- Text1.Text = "111"
- End If
- End Sub
- Private Sub Command1_Click()
- Text1.Text = "222"
- Label1.Caption = "22"
- Dim Bond2 As Integer
- Bond2 = "2"
- If Bond2 = "2" Then
- Text1.Text = "333"
- Label1.Caption = "33"
- End If
- End Sub
Advertisement
RAW Paste Data
Copied
Advertisement