[RainBow]

يمكن عمله بى هذه الطريقه تضيف label من خصائص Label تذهب ألى ApplicationSettins ثم Text بعد كده New وى اكتب اى اسم وى اضغط موافق بعد كده دع هذا الكود فى ListBox

كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label1.Text = ListBox1.SelectedIndex
    End Sub

وى هذا فى From Load

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = Label1.Text
    End Sub