Public Sub Connect()
    On Error Resume Next
    Dim localport As Long
    ds1.Close
    localport = 0
    ds1.RemotePort = ircstport
    ds1.localport = localport
    identd.localport = 113
    On Error GoTo closeidentd
    identd.Listen
closeidentd:
    ds1.Connect ircstserv, ircstport
    ResetFontFormat
End Sub

Public Sub Disconnect()
    On Error Resume Next
    ds1.Close
    identd.Close
End Sub