出现编译错误，变量未定义，哪位大师可以帮帮我啊，非常感谢了。

[qq_35440367]

Option Explicit

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol

End Sub
Private Sub cncbtn_Click()
Lclpclbl.Caption = Winsock1.LocalHostName
Winsock1.RemoteHost = rmtpc.Text
Winsock1.RemotePort = rmtprt.Text
Winsock1.Bind lclprt.Text
End Sub

Private Sub sndbtn_Click()
Winsock1.SendData inpttxt.Text
rcvtxt.Text = rcvtxt.Text + Chr$(13) + Chr$(10) + inpttxt.Text

End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rcvdata As String
Winsock1.GetData rcvdata
rcvtxt.Text = rcvtxt.Text + Chr$(13) + Chr$(10) + rcvdata

End Sub

[一如既往哈]

编译的时候，一般出现错误的地方，ide都会指出来的，按照指示修改不就可以了么？ 这种问题还需要问？

[allites]

麻烦给出具体出错地方，要不然不知道怎么修改

[熊孩子开学喽]

菜单里选择"全编译运行", 然后看看错在哪里. 找出未定义的变量