Private Sub Command2_Click()
  Dim sExe As String
  Dim sParam As String
 
  With List1
    If .ListIndex >= 0 Then
      sExe = "c:programmewinampwinamp.exe" 
      sParam = Chr$(34) & .List(.ListIndex) & Chr$(34)
      Shell sExe & " " & SParam 
    End If
  End With
End Sub