Ok, I would appreciate some feedback about...

[Daniel_Christie]

I have been studying Winsock controls.
I have recently been checking out the tutorial from the following site:
http://orion.spaceports.com/~mccloud...orial/3.2.html

Here is his coding... If I attempt to compile it, I get this error:
"Compile error- Sub or Function not defined"

Option Explicit

'Declares
    Dim Logged As String

    Dim Port As Long

Sub Log(iText As String)
    'Add text
    Logged = Logged & iText & vbNewLine
    
    'Update texbox
    txtLog.Text = Logged
    
    'Update scrolling
    txtLog.SelStart = Len(Logged)
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub
Sub Send(iText As String)
    If WS.State = sckConnected Then
        'Socket is connected
        WS.SendData iText & "¶"
        Log "You said: " & iText
    Else
        '...you know
        Log "[Not connected]"
    End If
End Sub
Private Sub txtText_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        'This clears the buffer since we
        'dont really want the user to send
        KeyAscii = 0
        
        'Send the text
        Send txtText.Text
        
        '...and clear the box
        txtText.Text = ""
    End If
End Sub


Private Sub WS_Close()
    WS.Close
    
    Log "[Disconnected (Remote closed)]"
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
    'Accept the connection
    WS.Close
    WS.Accept requestID
End Sub

Private Sub WS_Connect()
    Log "[Connected to " & WS.RemoteHost & "]"
End Sub

Private Sub WS_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)

    WS.Close
    
    Log "[Disconnected (Error: " & Description & ")]"
End Sub
Private Sub mnuStartServer_Click()
    'Wait for connection
    WS.LocalPort = 12334
    WS.Listen
    
    Log "[Listening on port " & WS.LocalPort & "]"
End Sub

Private Sub mnuConnectTo_Click()
    Static temp As String
    
    'Get user input
    temp = InputBox("Enter the IP (internet) or name (LAN) of the server computer)", _
        "Connect to...", "127.0.0.1")
    
    If Not temp = "" Then
        'Connect to this computer
        WS.Connect temp, 12334
        
        Log "[Connecting to " & temp & "]"
    End If
End Sub

Private Sub mnuDisconnect_Click()
    WS.Close
    
    Log "[Disconnected]"
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
    Dim A As Long
    Dim Data() As String
    Dim temp As String
    
    'Get the data from winsock
    WS.GetData temp, vbString
    
    'Split up in single messages
    Data = Split(temp, "¶", , vbTextCompare)
    
    'Go thru the messages
    For A = 0 To UBound(Data, 1) - 1
        Log "You hear: " & Data(A)
    Next
End Sub
Private Sub Form_Resize()
    On Error Resume Next
    
    'Move the controls
    txtLog.Move 0, 0, ScaleWidth, ScaleHeight - txtText.Height
    txtText.Move 0, ScaleHeight - txtText.Height, ScaleWidth
End Sub

I have tried to add a definition but I continue to fail...
What do you think is the correction for this issue?

P.S. If you happen to know some great Winsock tutorials, please by all means enlighten me.

[Flaming_Monkey]

It's the dim statements at the beginning.
Dim statements are used to declare temporary variables on a procedure scope. You need to change the "dim" to "private".
Hope this helps

[D12Bit]

Hi,

I just tested and besides the missing textboxes and winsock
control that i on porpouse didn't insert prior testing it to
get all possible errrors i was able to run the app successfully.

Maybe is the version of the Winsock, because i have VB6
without any service pack and had no problems.

hope that this info will help you.

[Daniel_Christie]

Flaming_Monkey,

Nope go fish!,

when I use "Private", I get the following error:
"Compile error- Invalid attribute in Sub or Function".