PDM Add-in Check in can't catch

I'm testing a  find actions sample code(Refer Below) from SolidWorks help.

In that I able to catch all options expect Check-In.

May I know what is the issue ?

Imports EdmLib

Public Class Class1

    Implements IEdmAddIn5

    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo

        'Specify add-in information

        poInfo.mbsAddInName = "My first add-in"

        poInfo.mbsCompany = "The name of my company"

        poInfo.mbsDescription = "This is a very nice add-in."

        poInfo.mlAddInVersion = 1

        'Specify minimum version of SOLIDWORKS Enterprise PDM

        poInfo.mlRequiredVersionMajor = 5

        poInfo.mlRequiredVersionMinor = 2

        'Notify when a file has been added

        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostAdd)

        'Notify when a file has been checked out

        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostLock)

        'Notify when a file is about to be checked in

        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PreUnlock)

        'Notify when a file has been checked in

        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostUnlock)

    End Sub

    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd

        'Check the type of hook that triggered this call

        Dim name As String

        Select Case poCmd.meCmdType

            Case EdmCmdType.EdmCmd_PostAdd

                name = "PostAdd"

            Case EdmCmdType.EdmCmd_PostLock

                name = "PostLock"

            Case EdmCmdType.EdmCmd_PreUnlock

                name = "PreUnlock"

            Case EdmCmdType.EdmCmd_PostUnlock

                name = "PostUnlock"

            Case Else

                name = "?"

        End Select

        'Check the upper and lower bounds of the array

        Dim message As String

        message = ""

        Dim index As Long

        index = LBound(ppoData)

        Dim last As Long

        last = UBound(ppoData)

        'Append the paths of all files to a string

        While index <= last

            message = message + ppoData(index).mbsStrData1 + vbLf

            index = index + 1

        End While

        'Display a message to the user

        message = "The following files were affected by a " + name + " hook:" + vbLf + message

        Dim vault As EdmVault5

        vault = poCmd.mpoVault

        vault.MsgBox(poCmd.mlParentWnd, message)

    End Sub

End Class

Thanks

SolidworksApi/macros