[VB.NET] كيف اوضع ProgressBar في هذا الكود

PHP كود :

If Me.checkBox2.Checked Then
                Dim strArray As String() = Me.pvt.Text.Split(New Char() { "#"c })
                Dim i As Integer = strArray.GetLowerBound(0)
                Do While (i <= strArray.GetUpperBound(0))
                    Try 
                        Me.x10.Send(String.Concat(New String() { "<message xmlns='jabber:client' to='", Me.roomname.Text, "@conference.nimbuzz.com/", strArray(i), "' type='chat' id='105'><body>", Me.fm1, "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><thread>MgIqZF</thread></message>" }))
                        Me.x10.Send(String.Concat(New String() { "<message xmlns='jabber:client' to='", Me.roomname.Text, "@conference.nimbuzz.com/", strArray(0), "' type='chat' id='105'><body>", Me.fmf2, "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><thread>MgIqZF</thread></message>" }))
                        Me.x10.Send(String.Concat(New String() { "<presence type = 'unavailable' to = '", Me.roomname.Text, "@conference.nimbuzz.com/", Me.cm10, "'></presence>" }))
                    Catch obj1 As Object
                    End Try
                    i += 1
                Loop
            End If 