VB.net cant call Sub in event (Inventor API)

[j.romo]

Hello, I have been trying to call a Sub on a Button Event and no luck

Public Class frmFLOR


    Sub Main()
        Dim invApp As Inventor.Application = GetObject(, "Inventor.Application")
        AddSketch(invApp)
    End Sub

    Private Sub btnSketch1_Click(sender As Object, e As EventArgs) Handles btnSketch1.Click
' here is how I call the sub, But it doesnt Work
        AddSketch()
       


    End Sub
    Public Sub AddSketch(ThisApplication As Inventor.Application)
       
        Dim oCompDef As PartComponentDefinition
        oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

        
        Dim oSketch As PlanarSketch
        oSketch = oCompDef.Sketches.Add("XY Plane", True)
        oSketch.Name = "Master Sketch"

    End Sub

End Class

Any help would be apreciated

[WCrihfield]

Hi @j.romo.  It looks to me like you may just be missing a line to declare the 'btnSketch1' variable as having Events you want to be able to access.  A like something like the following, I believe:

Private WithEvents btnSketch1 As ????

...I assume that 'btnSketch1' represents a System.Windows.Forms.Button, but I was not 100% sure.

[j.romo]

Yes the  'btnSketch1' is a button of a Form in Visual Studio, right now I can Open the form but cant call the Sub  AddSketch().

I want to ru the Sub once I click on the Button

[j.romo]

I get this error in the debug 

You didnt Specify an argument for the parameter 'ThisApplication' of 'Public Sub AddSketch(ThisApplication As Application)

[j.romo · Accepted solution]

Ok I found the problem,

it seems that to call a function we need to add (g_inventorApplication)

code looks like this:

Public Class frmFLOR


    Sub Main()
        Dim invApp As Inventor.Application = GetObject(, "Inventor.Application")
        AddSketch(invApp)
    End Sub

    Private Sub btnSketch1_Click(sender As Object, e As EventArgs) Handles btnSketch1.Click

        AddSketch(g_inventorApplication)
        


    End Sub



    Public Sub AddSketch(ThisApplication As Inventor.Application)
 
        Dim oCompDef As PartComponentDefinition
        oCompDef = ThisApplication.ActiveDocument.ComponentDefinition



        Dim xyPlane As Inventor.WorkPlane = oCompDef.WorkPlanes.Item(3)
        Dim oSketch As PlanarSketch
        oSketch = oCompDef.Sketches.Add(xyPlane, False)
        oSketch.Name = "Master Sketch"

    End Sub