Hi Guy's

I have the below code to Download some files from mentioned Space to your PC
Code:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

lngRetVal = URLDownloadToFile(0, "http://www.XXX.com/File1.zip", "C:\file.zip", 0, 0)

End Sub
My question is : In my space "www.XXX.com"

I have many files as the following

file1
file2
file3
file4

I want to put some options in the form as the below what's the file I want to download it



How to can I get my idea , Pls your kind advice

I hope to get my point