Pues debo ser tonto o algo macho no lo consigo:
Código:
Private Sub GUI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.IRCWorker.RunWorkerAsync()
End Sub
Private Sub IRCWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles IRCWorker.DoWork
IRC.Conexion()
End Sub
Private Sub IRCWorker_Progreso(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles IRCWorker.ProgressChanged
Me.RawLog.AppendText(e.UserState.ToString)
End Sub
Código:
Sub Conexion()
Dim Config() As String
Dim Port, Server As String
Dim ConfFile As String = "IRC-BoT.cfg"
Dim ReadConf As New StreamReader(ConfFile)
Config = ReadConf.ReadLine().Split("|")
Nick = Config(0)
Ident = Config(1)
Info = Config(2)
Server = Config(3)
Port = Config(4)
Channel = Config(5)
ReadConf.Close()
GUI.IRCWorker.ReportProgress("Conectando...")
[...]
Asi lo tenia antes de tu ejemplo y no consigo hacer que funcione, probe tambien con GUI.IRCWorker.ReportProgress(1, "Conectando...")