Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        Dim sPath As String
 
 
 
        sPath = "C:\Temp"
        If sPath.EndsWith("\") And sPath.Length > 3 Then
            sPath = sPath.Substring(0, sPath.Length - 1)
        End If
 
 
        Dim oDir As New System.IO.DirectoryInfo(sPath)
 
 
        Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.lnk")
 
 
        Dim oFile As System.IO.FileInfo
 
 
 
 
 
 
        ListBox1.Items.Clear()
        For Each oFile In oFiles
            ListBox1.Items.Add(oFile.Name)
 
 
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
 
 
        Diagnostics.Process.Start(ListBox1.SelectedValue)
 
    End Sub
End Class