[سعود]

بارك الله فيك
لكن الـ Listbox بفورم عرض المسجلين والليبل بفورم الدردشة

---

كود :

Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
        ' MsgBox(ListBox1.Text)



        Dim chat As New chat
        Dim gip As New SqlCommand("select uname,myip from tusers where uname='" & ListBox1.Text & "'", conn)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Dim dr As SqlDataReader = gip.ExecuteReader
        If dr.Read Then
            Try
                chat.frindname.Text = ListBox1.Text
                frindip = dr.Item("myip")
                chat.Show()

            Catch ex As Exception
                MsgBox("هذا العضو لم يسجل دخوله ليتم تحديث معلومات الاتصال به", MsgBoxStyle.Critical, "")
            End Try


        End If



    End Sub