[sooriaty03]

وعليكم السلام ورحمة الله وبركاته
أخي الكريم
تفضل هذا هو الكود المطلوب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex > -1 Then
            TextBox1.Text = System.IO.Path.GetExtension(ListBox1.SelectedItem)
        End If
    End Sub

بالتوفيق