Sub BuildVersion() MsgBox "You are using CorelDRAW build " & VersionBuildEnd Sub
Sub BuildVersion() MsgBox "You are using Corel DESIGNER build " & VersionBuildEnd Sub
Sub Main() Dim v&, b& GetDrawVersion v, b MsgBox v & "." & bEnd SubSub GetDrawVersion(v As Long, b As Long) On Error Resume Next Err.Clear v = CorelDRAW.Application.VersionMajor If Err.Number <> 0 Then v = 9 b = 439 Else b = CorelDRAW.Application.VersionBuild End If On Error GoTo 0 MsgBox "You are using CorelDRAW " & v & "." & bEnd Sub
Sub Main() Dim v&, b& GetDesignerVersion v, b MsgBox v & "." & bEnd SubSub GetDesignerVersion(v As Long, b As Long) On Error Resume Next Err.Clear v = CorelDESIGNER.Application.VersionMajor If Err.Number <> 0 Then v = 9 b = 439 Else b = CorelDESIGNER.Application.VersionBuild End If On Error GoTo 0 MsgBox "You are using Corel DESIGNER " & v & "." & bEnd Sub