[Basil Abdallah]

كود :

Public Class Form1
   Dim WithEvents NameList As New ListBox

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim lines() As String = IO.File.ReadAllLines("Names Path")
       NameList.Items.AddRange(lines)
       Dim CHName As New Random
       NameList.SelectedIndex = CHName.Next(NameList.Items.Count)
   End Sub
   Private Sub NameL_SelectName() Handles NameList.SelectedIndexChanged
       MsgBox(NameList.Text)
   End Sub
End Class