Option Explicit

Public ircstserv        As String   'irc server
Public ircstport        As Integer  'irc port

Public ircstuser        As String   'nickname
Public ircstgate        As String   'user gate
Public ircstgend        As String   'user gender

Public sData            As String   'data return for parsing
Public cMode            As Integer

Sub Main()
    ircstserv = "irc.shroomery.org"
    ircstport = 6667
    
    ircstuser = "MyNick"
    ircstgate = "my.host.name"
    
    ircstgend = "U"
    
    frmMain.Show
End Sub