Private Sub Form_Load()
    On Error GoTo ErrorHandler
    'Debug.Print "Form_Load"
    'Me.Hide
    Randomize
    m_lngListenPort = 8080
    Winsock1(0).LocalPort = m_lngListenPort
    Winsock1(0).Listen
    Exit Sub
ErrorHandler:
    Debug.Print Err.Number, Err.Description
    Select Case Err.Number
        Case 10048
            Debug.Print "Port in use: " & Winsock1(0).LocalPort
            m_lngListenPort = m_lngListenPort + 1
            Winsock1(0).LocalPort = m_lngListenPort
    End Select
    Resume
End Sub