Public Sub FeatureCount(ByVal ThisApplication As Inventor.Application)
        Dim oPartDoc As PartDocument
        oPartDoc = ThisApplication.ActiveDocument
        MsgBox("There are " & oPartDoc.ComponentDefinition.Features.Count & " features in this part.")
        MsgBox("Test")
        Form1.ActiveForm.Show()
End Sub