[VB.NET] مشكلة تهنيج الفورم اثناء تشغيل التايمر

PHP كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ComboBox1.SelectedItem = "Start" Then

            Jids = RichTextBox2.Text.Split("#")
            If k = Jids.Length Then
                k = 0
            Else
                If emad(k).Authenticated = True Then
                    Me.colora()
                    emad(k).Send("<presence to='" + TextBox1.Text + "@conference.nimbuzz.com/" + emad(k).Username + "'><x xmlns='http://jabber.org/protocol/muc'></x></presence>")
                    emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox1.Text, "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='", colors, "'/></p></body></html></message>"}))
                    emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox2.Text, "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='", colors, "'/></p></body></html></message>"}))
                    emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox3.Text, "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='", colors, "'/></p></body></html></message>"}))
                    emad(k).Send(String.Concat(New String() {"<presence to='" + TextBox1.Text + "@conference.nimbuzz.com/imanking' type='unavailable'></presence>"}))
                End If
                k += 1
            End If
        End If

    End Sub 