[Visual Basic]
 
Public Class FrmSearchUsers
 
 
 
 
    Private WithEvents oMC As IMSDK.IMClient
    Public Sub setMCVar(ByRef pMC As IMSDK.IMClient)
        oMC = pMC
    End Sub
 
 
 
 
    Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
        oMC.BeginSearchUsers(txtusername.Text, txtfirstname.Text, txtlastname.Text, txtemail.Text, cbonline.Checked)
 
    End Sub
 
 
 
    Delegate Sub DelegateOnSearchUsersCompleted(ByVal Usernames As String)
    Private Sub oMC_OnSearchUsersCompleted(ByVal Usernames As String) Handles oMC.OnSearchUsersCompleted
 
        Debug.WriteLine("oMC_OnSearchUsersCompleted : " & Usernames)
        Dim NewFriDlg As New DelegateOnSearchUsersCompleted(AddressOf addItems)
        Me.BeginInvoke(NewFriDlg, Usernames)
 
    End Sub
 
 
 
    Private Sub addItems(ByVal Usernames As String)
        lbusers.Items.Clear()
 
        Dim uns As String() = Usernames.Split(",")
        For i As Integer = 0 To UBound(uns)
            If uns(i).Trim <> "" Then
                lbusers.Items.Add(uns(i))
            End If
 
        Next
    End Sub
 
End Class