Insert Revision Cloud into a Drawing Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open public_documents\samples\tutorial\api\resetsketchvisibility.slddrw.
'
' Postconditions:
' 1. Inserts an elliptical revision cloud in the drawing.
' 2. Examine the graphics area.
'
' NOTE: Because the drawing is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Dim Part As DrawingDoc
    Dim RevCloud As RevisionCloud
    Dim RevCloudAnno As Annotation
    Dim boolstatus As Boolean

    Sub main()

        Part = swApp.ActiveDoc
        boolstatus = Part.ActivateView("Drawing View1")

        ' Create a revision cloud with an elliptical shape
        RevCloud = Part.InsertRevisionCloud(1)
        If Not RevCloud Is Nothing Then
            RevCloudAnno = RevCloud.GetAnnotation
            If Not RevCloudAnno Is Nothing Then
                ' Position the center of the elliptical revision cloud
                boolstatus = RevCloudAnno.SetPosition(0.270847371964905, 0.553263328912467, 0)
                RevCloud.ArcRadius = 0.00508
                ' Create a path point on the corner of an ellipse-inscribed rectangle
                boolstatus = RevCloud.SetPathPointAtIndex(-1, 0.378419710263212, 0.511051398694144, 0)
                ' Close the revision cloud path
                boolstatus = RevCloud.Finalize
            End If
        End If

    End Sub

    Public swApp As SldWorks


End Class