Option Explicit

Dim goSheetControl As New cSheetControl

Sub call_cSheetControl_Initialize()

  MsgBox _
    goSheetControl.Initialize( _
      getSysParaBySheet(ActiveSheet.Name, "C01P1") _
    )

End Sub

Sub call_cSheetControl_getStatus()

  MsgBox _
    goSheetControl.getStatus( _
    )

End Sub

Sub call_cSheetControl_VisibleSheet()

  MsgBox _
    goSheetControl.VisibleSheet( _
      CBool(getSysParaBySheet( _
        ActiveSheet.Name, "C01P2") = "TRUE" _
      ) _
    )

End Sub

Sub call_cSheetControl_isCheckFoundSheet()

    MsgBox _
      goSheetControl.isCheckFoundSheet( _
      )

End Sub

Sub call_cSheetControl_insertSheetName()

    MsgBox _
      goSheetControl.inserSheetName( _
      )

End Sub

Sub call_cSheetControl_updateSheetName()

    MsgBox _
      goSheetControl.updateSheetName( _
        getSysParaBySheet(ActiveSheet.Name, "C01P3") _
      )

End Sub

Sub call_cSheetControl_deleteSheetName()

  MsgBox _
    goSheetControl.deleteSheetName( _
    )

End Sub

Sub call_cSheetControl_Terminate()

  MsgBox _
    goSheetControl.Terminate( _
    )

End Sub