[VB6] ActiveX CommonControls (Replacement of the MS common controls)

[Condor3]

Thanks, Krool!

I updated the post above to show the images. The code I'm using boils down to:

Dim gcdg As VBCCR18.CommonDialog
Set gcdg = New VBCCR18.CommonDialog
gcdg.flags = CdlOFNFileMustExist Or CdlOFNAllowMultiSelect Or CdlOFNExplorer
gcdg.Filter = "Crystal Reports (*.rpt;*.rpz)|*.rpt;*.rpz|Excel Files (*.xlsx;*.xls)|*.xlsx;*.xls|SQL Files (*.sql)|*.sql"
gcdg.FilterIndex = 1

gcdg.MaxFileSize = 32000
 
gcdg.ShowOpen

If FileExists(gcdg.FileName) Then ...