Launch PDF files in VB6

Question

I have a directory on the server that is created according to the book and sheet, where when scanning images it is saved through the book and physical sheets.

example: I have a book that I have three pages, being that the number of the book is 1022 and the leaves are 140, 141,142, that is, will be scanned 3 leaves of the book 1022 getting so in the directory:

\\servidor\imagens\L1022\L1022F140\L1022F140.pdf
\\servidor\imagens\L1022\L1022F140\L1022F141.pdf
\\servidor\imagens\L1022\L1022F140\L1022F142.pdf

What I would like to do is to click on a list and visualize each of them through one of two buttons Move forward and Recede

All this I would like to do in VB6.

My current code:

Private Sub cmdVisualiza_Click()

Dim ArqNumstrPathServer As String
Dim ArqNum As String
Dim FS As New FileSystemObject
Dim FSfolder As Folder
Dim subfolder As Folder
Dim I As Integer
Dim Path As String
Path = "\\Luciano\\Imagens\\gerdoc\\"
ArqNum = "L" & txtLivro & "F" & txtFolha
Botao = "L" & txtLivro & "F" & txtFolha

sFolderPath = Path & "L" & txtLivro & "\\" & Botao & "\\"