请教VB6.0与S7-200以太网通讯

请教各位关于VB6.0与S7-200以太网通讯(Winsock)，本人刚接触VB6.0。
要求：对Q0.3置1
VB6.0程序如下
Private Sub Command1_Click()

Dim sendstr(7) As Byte
sendstr(0) = &H1 '站地址
sendstr(1) = &H5 '功能码
sendstr(2) = &H0
sendstr(3) = &H3 '目标地址
sendstr(4) = &HFF
sendstr(5) = &H0 '线圈置1
sendstr(6) = &H0 '校验码
sendstr(7) = &H0 '校验码
Dim astr As String
Dim i牋 As Integer
For i = 0 To 7
astr = astr & Chr(sendstr(i))
Next
SockServer.SendData astr

End Sub

Private Sub Form_Load()
SockServer.LocalPort = 2000牋牋
SockServer.RemoteHost = \"192.168.1.60\" ‘PLC地址
SockServer.RemotePort = 1 ’PLC站地址
End Sub

用以太网链接测试，没效果。

这个程序那个地方有问题？应该怎么改。

学习了 我想知道300/400的怎么实现VB与PLC读写通讯