Private Sub CommandButton1_Click()
Dim filename As String
' filename = "d:\myPDF.pdf" ' file path
filename = ListBox1.List(ListBox1.ListIndex) ' selected item in ListBox1
WebBrowser1.Navigate filename
End Sub