未找到方法或数据成员

Private Sub cd1_Click()
   tcpclient.romotehost = Text1.Text
   tcpclient.romoteport = Val(Text2.Text) '端口号，缺省为1001
   tcpclient.Connect '调用connect方法，与指定IP地址的计算机进行连接
   cd1.Enabled = False
End Sub
Private Sub tcpclieng_DataArrival(ByVal bytesTotal As Long)
   Dim x As String
   tcpclient.GetData x '使用getdata获得发送来的数据
   MsgBox x
End Sub
代码运行时提示未找到方法或数据成员，“tcpclient.romotehost = Text1.Text”这句报错，请问是什么原因啊？