Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub cmdCountCodeLines_Click()

Dim strVBProject As String
Dim strVBComponent As String
Dim objVBComponent As VBComponent

'Forms controls
strVBProject = txtProject.Text
strVBComponent = txtComponent.Text

'Set objVBComponent to the program component suggested by
'strVBProject and strVBComponent
Set objVBComponent = VBInstance.VBProjects.Item(strVBProject).VBComponents.Item(strVBComponent)

'Assign the number of lines of code (countoflines) of the component
'objVBComponent to the txtcodelines textbox
txtCodeLines.Text = Str(objVBComponent.CodeModule.CountOfLines)

End Sub

Private Sub cmdDone_Click()

'Hide the addin window
Connect.Hide

End Sub