Private Sub cboFiles_Click()
    imgView.Picture = LoadPicture(App.Path & "\" & cboFiles.List(cboFiles.ListIndex))
End Sub

Private Sub cmdBottom_Click()
    cboFiles.ListIndex = cboFiles.ListCount - 1
End Sub

Private Sub cmdNext_Click()
    lnIndex = cboFiles.ListIndex + 1
    If lnIndex = cboFiles.ListCount Then lnIndex = 0
    cboFiles.ListIndex = lnIndex
End Sub

Private Sub cmdPrev_Click()
    lnIndex = cboFiles.ListIndex - 1
    If lnIndex = -1 Then lnIndex = cboFiles.ListCount - 1
    cboFiles.ListIndex = lnIndex
End Sub

Private Sub cmdTop_Click()
    cboFiles.ListIndex = 0
End Sub

Private Sub Form_Load()
    cboFiles.Clear
    lcFileName = Dir(App.Path & "\??.jpg")
    Do While lcFileName <> ""
        cboFiles.AddItem lcFileName
        lcFileName = Dir()
    Loop
    cmdTop_Click
End Sub

Private Sub imgView_DblClick()
    cmdNext_Click
End Sub