[kslawy]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' حلقة دوران علي كل الفورم المفتوحة
        For Each ofrm As Form In My.Application.OpenForms
            If ofrm.Tag IsNot Nothing Then
                If ofrm.Tag.ToString = ListBox1.SelectedItem.ToString Then ' إذا وجد فورم مفتوح بنفس اسم العضو راح ينشطو فقط
                    ofrm.Activate()
                    Exit Sub
                End If
            End If
        Next
        ' إذا ما وجد الفورم الخاص بالعضو مفتوح راح ينشئ فورم محادثة جديد
        Dim frm As New Form2
        frm.Tag = ListBox1.SelectedItem.ToString
        frm.Show()
    End Sub