why is mdichild in not activate.....

[Supra]

i got code working. similar to mirc chat. but what happen when i joined
the channel #visualbasic...that fine with me , i got all data coming
into first mdichild. but when i joined another channel #vb, i got both
#visualbasic and #vb data into second mdichild. but first mdichild is
not activated anymore. but how do i passed data goes # visualbasic to
first mdichild and #vb goes to second mdichild. i am attemptinjg figured
out ...activemdichild, etc and also i can't detecting arraylist or some
keyword "TAG"

in class2.vb
Region "Channel..."
Sub NewChannel(ByVal mparent As mainPirateChat, ByVal szChannel
As String)
m_parent = mparent
nChan = New frmChannel
nChan.MdiParent = m_parent
nChan.Show()
End Sub

#End Region

Public Sub New(ByVal mParent As mainPirateChat)
m_parent = mParent
_Connection = New ConnectionFactory
nStatus = New frmStatus
nStatus.MdiParent = m_parent
nStatus.Show()
End Sub

Public Sub New(ByVal mparent As mainPirateChat, ByVal szChannel
As String)
m_parent = mparent
nChan = New frmChannel
Me.NewChannel(m_parent, szChannel)
End Sub

Private Sub _Connection_onNickJoin(ByVal szNick As String, ByVal szHost
As String, ByVal szChannel As String) Handles _Connection.onNickJoin
If szNick <> "supra2005" Then
nChan.lstNames.Items.Add(szNick)
nChan.Tag = szTag
nChan.Text = szChannel.ToLower & " [" &
nChan.lstNames.Items.Count - 1 & "]"
deleg = New OneArgSub(AddressOf DisplayMessage)
deleg.Invoke(nChan.rtbChannel, "<" & szNick & "> " & "["
& szHost & "] " & " has joined " & szChannel)
Debug.WriteLine("joined :" & nChan.Tag)
End If
End Sub
does ne 1 have ne hints u can help?
regards