[silverlight]

PHP كود :

   Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
        Dim itemIndex As Integer = Me.ListBox1.IndexFromPoint(e.Location)
        If itemIndex <> System.Windows.Forms.ListBox.NoMatches Then
            TextBox1.Text = ""
            TextBox1.Text = ListBox1.Items(itemIndex)
        End If
    End Sub