יש לי שני טפסים, באחד כפתור בשני תיבת טקסט איך אני עושה כשלוחצים על הכפתור זה כותב את הcaption של הכפתור בתיבת טקסט?

ועוד שאלה קטנה:

יש לי את התוכנית הקטנה הזאת

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Text = Text1.Text + Check1.Caption
Combo1.Visible = True
Else
Combo1.Visible = False
Text1.Text = Text1.Text - Check1.Caption
End If
End Sub

אני רוצה לעשות שה-value של check1 שווה false זה ימחק את הcaption שלו

Text1.Text = Text1.Text - Check1.Caption

השורה הזאת לא עובדת.. מה הבעיה?

1) אתה מכניס לתוך הCLICK שלו:

form2.text1.text=button1.caption

2) אתהצריך להשתמש ב- replace:

text1.text=replace(text1.text, check1.caption, "")