Events ?

Jeg leger lidt med IPworks'' IPPort:
http://www.dev-soft.com/ctl_IPPort.htm

Den kører fint, men fyrer nogle events af, som jeg ikke kan finde ud af at fange :(

Hvordan får jeg den til det?

Her er min kode:

Option Explicit

Dim WhoIsServer, TopDomain, Domain As String
Dim n As Integer
Dim Finished As Boolean

Sub Cgi_Main()
    On Error GoTo errHandl
   
    Domain = GetCgiValue("Domain")
   
    n = InStrRev(Domain, ".")
    If Not n = 0 Then
        TopDomain = Mid(Domain, n)
        TopDomain = LCase(TopDomain)
        If TopDomain = ".com" Or TopDomain = ".net" Or TopDomain = ".org" Then
            WhoIsServer = "whois.internic.net"
        ElseIf TopDomain = ".se" Then
            WhoIsServer = "whois.nic-se.se"
        Else
            WhoIsServer = "whois.ripe.net"
        End If
    End If
   
    Set IPPort1 = New IPPort
   
    IPPort1.WinsockLoaded = True
   
    IPPort1.EOL = Chr$(10)
   
    ''close old connections (if any)
    If IPPort1.Connected Then IPPort1.Connected = False
   
    SendHeader ("WhoIs : " & Domain)
   
    ''set the remote host
    Send ("Looking up host " & WhoIsServer & "...")
    IPPort1.RemoteHost = WhoIsServer
    IPPort1.RemotePort = 43
   
    ''attempt connection
    Send ("Connecting to " & IPPort1.RemoteHost & "...")
    IPPort1.Connected = True
   
    ''wait until the connection is achieved
    ''(timeout in 10 seconds)
    ''Dim After10Seconds As Timer
    After10Seconds = Now + 10# / (3600# * 24#)
    Do Until Now > After10Seconds
        If IPPort1.Connected Then Exit Do
        DoEvents
    Loop
    If Not IPPort1.Connected Then
        Send "Connection timed out."
        Exit Sub
    End If
   
    ''send the data
    IPPort1.DataToSend = Domain & Chr$(13) & Chr$(10)
   
    SendFooter
   
    Exit Sub

errHandl:
   
    Send (Err.Description)

End Sub


Sub IPPort1_Connected(StatusCode As Integer, Description As String)
   
    ''tResponse.SelStart = Len(tResponse.Text)
   
    If StatusCode = 0 Then    ''OK!!
        ''tResponse.SelText = "Connected.  Waiting for data..." & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)
        Send ("Connected.  Waiting for data..." & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10))
    Else
        ''tResponse.SelText = "Connection failed: " & Description & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)
        Send ("Connection failed: " & Description & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10))
    End If
   
End Sub

Sub IPPort1_DataIn(Text As String, EOL As Integer)
   
    ''tResponse.SelStart = Len(tResponse.Text)
    ''tResponse.SelText = Text & Chr$(13) & Chr$(10)
    Send (Text & Chr$(13) & Chr$(10))
   
End Sub

Sub IPPort1_Disconnected(StatusCode As Integer, Description As String)

    Finished = True
    ''tResponse.SelStart = 0

End Sub