온 오프 확인할떄요.. 이

Private Sub Command4_Click()
Winsock1.Close
Winsock1.Connect Text1.Text, Val(Text2, Text)
End Sub
Private Sub Winsock1_Connect()
MsgBox 서버온입니다, 64, 서버상태
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 서버오프입니다, 64, 서버상태
End Sub

컴파일오류입니다. 인수의 개수나 속성 지정이 잘못되엇습니다. 라고 뜨고요
Private Sub Command4_Click() 여기가 노랗게 변하네요.. 어떻게 하나여