ShowFilesAssociationDlg Example for Visual Basic

Dim RasterFileDlg As New LEADRasterDlgFile_U
Dim nRet As Integer
RasterFileDlg.UIFlags = 0
RasterFileDlg.Formats = "LEAD (*.cmp)|*.cmp|DICOM (*.dcm)|*.dcm|Windows Bitmap (*.bmp)|*.bmp"
RasterFileDlg.SelectedExt = ""
RasterFileDlg.ServerApplicationName = "Application Name"
nRet = RasterFileDlg.ShowFilesAssociationDlg(hWnd)