hi reza i want help about freebuzz dll please

Public Class Form1
    Dim sock As New Collection(Of frbclient)
    Dim sck As frbclient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
        On Error Resume Next
        Dim idz() As String = ids.Text.Split("#")
        For i = LBound(idz) To UBound(idz)
            sock.Add(sck)
            sock(i).Connect(idz(i), pas.Text, "any text")
        Next
    End Sub

Public Class Form1
    Dim sock As Collection(Of frbclient) = New Collection(Of frbclient)
    Dim sck As New frbclient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
        On Error Resume Next
        Dim idz() As String = ids.Text.Split("#")
        For i = 0 to idz.Length
        sock.Add(sck)
        sock(i) = New frbclient
        sock(i).Connect(idz(i), pas.Text, "any text")
        Next i
    End Sub