Vorrei sapere come faccio ad aprire un file quando si fa click su un FileListBox, ho provato con "Call Shell", ma non funziona (o meglio, funziona solo con gli exe). Ecco il codice che ho usato (filelst è la FileListBox):

codice:
Private Sub filelst_Click() 'Al click su filelst
On Error GoTo msg 'Se fa errore va su :msg
Call Shell(dirlst.path & "\" & filelst.FileName, vbNormalFocus) 'Chiama la shell
Exit Sub 'Esce in modo tale da non eseguire :msg
msg: 'Etichetta msg
MsgBox ("Impossibile aprire: " & dirlst.path & "\" & filelst.FileName) 'Visualizza
'impossibile aprire il file
End Sub