志愿者帮忙，谢谢啊~~~~缘份啊~~`

Question

我下面的有什么错误！
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
server
------------------------------------------------------------------------------------------
Private Sub Form_Load()
    wsktcpserver.RemotePort = 1061
    wsktcpserver.Listen
    frmtcpclient.Show
    
    End SubPrivate Sub Form_Unload(Cancel As Integer)
    wsktcpserver.Close
End SubPrivate Sub txtsenddata_Change()
    wsktcpserver.SendData txtsenddata.Text
End Sub
Private Sub wsktcpserver_ConnectionRequest(ByVal requestID As Long)
    If wsktcpserver.State <> sckClosed Then wsktcpserver.Close
        wsktcpserver.Accept requestID
    End If
End SubPrivate Sub wsktcpserver_DataArrival(ByVal bytesTotal As Long)
    Dim sdata As String
    wsktcpserver.GetData sdata, vbString
    txtgetdata.Text = sdata
End Sub-----------------------------------------------------------------------------------------
client
------------------------------------------------------------------------------------------
Private Sub cmdconnect_Click()
    wsktcpclient.Connect
    
End SubPrivate Sub Form_Load()
    wsktcpclient.RemoteHost = "10.49.5.221"
    wsktcpclient.RemotePort = 1061
       
End SubPrivate Sub txtgetdata1_Change()
    wsktcpclient.SendData txtsendtada1.Text
End SubPrivate Sub wsktcpclient_DataArrival(ByVal bytesTotal As Long)
    Dim stada1 As String
   
        wsktcpclient.GetData stada1, vbString
        txtgetdata1.Text = GetData
   
End Sub