VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Sub ExternalRunCommand(ByVal command As Integer, ByVal mode As Integer, ByVal kompas_ As Object)
  Set iKompasObject = kompas_
  Set iDocument2D = iKompasObject.ActiveDocument2D
  Select Case command
    Case 1:
      Dim Gayka As Object
      Set Gayka = New GaykaObj
      Gayka.Draw
  End Select

End Sub

Public Function GetLibraryName() As String
  GetLibraryName = ""
End Function


Public Function ExternalMenuItem(ByVal number As Integer, itemType As Integer, command As Integer) As String
  Select Case number
    Case 1
      itemType = 1 'MENUITEM'
      ExternalMenuItem = "  5915-70__"
      command = 1
    Case Else
      itemType = 3 '"ENDMENU"'
      ExternalMenuItem = ""
      command = -1
  End Select
End Function

