GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

Option Explicit

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub quickZoom()
    Dim t As Integer
    Dim sngStartTime As Single
    sngStartTime = Timer
    
    t = ActiveTool
    If ActiveTool <> cdrToolZoom Then
            ActiveTool = cdrToolZoom
        End If
    Do While GetAsyncKeyState(vbKeyEscape) = 0 And (Timer - sngStartTime) < 3
        DoEvents
    Loop
    If t = cdrToolZoom Then
        ActiveTool = cdrToolPick
    Else
        ActiveTool = t
    End If
End Sub

Add Comment, Question, Discussion...

SUBSCRIBE to Email List

My Account

Policy
and
Terms

Upgrades?

Need a Custom Macro?
NO LONGER AVAILABLE