请问如用VB测试服务器端口是否可用？

如果服务器IP：10.10.10.1
PORT：1200
请前辈指点两句 --------------------编程问答-------------------- Private Sub Command1_Click()
Winsock1.Connect "10.10.10.1", 1200
End Sub

Private Sub Winsock1_Connect()
    MsgBox "服务器可用"
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "服务器不可用"
    Winsock1.Close
End Sub
--------------------编程问答-------------------- 如果用telnet方法可以测试吗？ --------------------编程问答-------------------- 可以在DOS窗口内：
TELNET 10.10.10.1 1200

补充：VB ,  网络编程