call函数的用法,该如何处理

call函数的用法
Text1的KeyPress函数已经写好了，现在希望在一个按钮按下的时候有和Text1的KeyPress有相同功能，请问怎么办？
好象Call函数可以做是吧，不会写。

[解决办法]
不好意思，想当然的就直接回复了，忘了KeyPress事件后面还有个参数KeyAscii
你得把参数填上
Private Sub Command1_Click()
Call Text1_KeyPress(13)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "afa "
End If
End Sub