VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "csMainDll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub Class_Initialize()

    'Set objSubDll1 = GetObject("", "SubDll1.csSubDll1")
    'Set objSubDll2 = GetObject("", "SubDll2.csSubDll2")
    Set objSubDll4 = GetObject("", "SubDll4.csSubDll4")

End Sub


Public Function OpenWindow(iIndex As Integer, Hwnd As Long) As Long

    Select Case iIndex
    
        Case 1
            'OpenWindow = objSubDll1.OpenWindow(Hwnd)
            
        Case 2
            'OpenWindow = objSubDll2.OpenWindow(Hwnd, iIndex)
            
        Case 3
            'OpenWindow = objSubDll2.OpenWindow(Hwnd, iIndex)
            
        Case 4
            OpenWindow = objSubDll4.OpenWindow(Hwnd, iIndex)
        
        Case Else
            MsgBox "잘못된 인덱스입니다."
            OpenWindow = -1
    
    End Select

End Function


Private Sub Class_Terminate()

    'Set objSubDll1 = Nothing
    'Set objSubDll2 = Nothing
    Set objSubDll4 = Nothing

End Sub


