CaptureHotKeyPressed Example for Visual Basic

Private Sub LEADRasterScr1_OnCaptureHotKeyPressed()
Dim ret As Integer
Dim bRet As Boolean
    ret = MsgBox("Do you want to capture?", vbYesNo, "HotKey Pressed")
    If ret = vbNo Then
        'cancel capture
        bRet = LEADRasterScr1.IsCaptureActive
        If (bRet) Then
            LEADRasterScr1.StopCapture
        End If
    End If
 End Sub