Private Sub Combo1_click()If Combo1.Text = "1" Then Text1.Text = "1"Else Text1.Text = "2"End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem "1"Combo1.AddItem "2"End Sub