ShowFilesAssociationDlg Example for Visual Basic

Dim RasterFileDlg As New LEADRasterDlgFile
Dim nRet As Integer
Private Sub AssociateFiles_Click()
   RasterFileDlg.UIFlags = 0
   RasterFileDlg.Formats = "LEAD (*.cmp)|*.cmp|DICOM (*.dic)|*.dic|Windows Bitmap (*.bmp)|*.bmp"
   RasterFileDlg.SelectedExt = ""
   RasterFileDlg.ServerApplicationName = "Application Name"
   nRet = RasterFileDlg.ShowFilesAssociationDlg (hWnd) 
End Sub