CaptureOptionDlg Example for Visual Basic

Private Sub Command1_Click()
    Dim nRet As Integer
    'disable errors to check for cancel
    LEADRasterScr1.EnableMethodErrors = False
    LEADRasterScr1.ShowHelpButton = True
    'display capture option dialog
    nRet = LEADRasterScr1.CaptureOptionDlg(hWnd, 0)
    If (nRet <> 0) Then
        If (nRet <> ERROR_USER_ABORT) Then
            MsgBox "Error setting options!"
        End If
    End If
End Sub

Private Sub LEADRasterScr1_ScreenDlgHelp(ByVal DlgFrom As Long, ByVal CtlID As Long)
   '...
   ' set your code here
   '...
   '...
End Sub