vb combo问题

我在窗体中添加1各combo控件和两个text控件并将这两个text控件属性中visible设置为false我编写如下编码，想要实现combo为1时，一个text可见，想要实现combo为2时，2个text可见
Private Sub Combo1_Change()
If Combo1.Text = 1 Then
Text1.Visible = True
End If
If Combo1.Text = 2 Then
Text2.Visible = True
Text1.Visible = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem 1
Combo1.AddItem 2
End Sub
为什么运行不出来
我知道了长change改为chick就行

Private Sub Combo1_Click()
If Trim(Combo1.Text) = 1 Then
Text1.Visible = True
End If
If Combo1.Text = 2 Then
Text2.Visible = True
Text1.Visible = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
End Sub

用Click事件

Change 事件

指示一个控件的内容已经改变的。此事件如何和何时发生则随控件的不同而不同：

ComboBox － 改变控件的文本框部分的正文。该事件仅在 Style 属性设置为 0（下拉 Combo）或 1（简单 Combo）和正文被改变或者通过代码改变了 Text 属性的设置时才会发生。

DirListBox － 改变所选择的目录。该事件在双击一个新的目录或通过代码改变 Path 属性的设置时发生。

DriveListBox － 改变所选择的驱动器。该事件当选择一个新的驱动器或通过代码改变 Drive 属性的设置时发生。

HScrollBar 和 VScrollBar（水平和垂直滚动条） － 移动滚动条的滚动框部分。该事件在进行滚动或通过代码改变 Value 属性的设置时发生。

Label － 改变 Label 的内容。该事件在一个 DDE 链接更新数据或通过代码改变 Caption 属性的设置时发生。

PictureBox － 改变 PictureBox 的内容。该事件当一个 DDE 链接更新数据或通过代码改变 Picture 属性的设置时发生。

TextBox － 改变文本框的内容。该事件当一个 DDE 链接更新数据、用户改变正文或通过代码改变 Text 属性的设置时发生。
语法