Select Case pVal.EventType
    Case SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED
        Select Case pVal.ItemUID
            Case "bt_Print"
                '"Your code here
        End Select
End Select