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

Implements ICommand

' Error handler function
Const c_ModuleFileName = "clsDeletePlanProfile"

' Variables
Dim m_pApplication As IApplication
Dim m_pMxDoc As IMxDocument
 
Private Property Get ICommand_Enabled() As Boolean
    ICommand_Enabled = True
End Property
 
Private Property Get ICommand_Checked() As Boolean

End Property
 
Private Property Get ICommand_Name() As String
    ICommand_Name = "Samples_DeletePlanProfile"
End Property
 
Private Property Get ICommand_Caption() As String
    ICommand_Caption = "Delete Plan Profile"
End Property
 
Private Property Get ICommand_Tooltip() As String
    ICommand_Tooltip = "Delete Plan Profile Graphics"
End Property
 
Private Property Get ICommand_Message() As String
    ICommand_Message = "Delete the Plan Profile graphics from the Layout"
End Property
 
Private Property Get ICommand_HelpFile() As String

End Property
 
Private Property Get ICommand_HelpContextID() As Long

End Property
 
Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE
    ICommand_Bitmap = frmIcons.picDeletePP
End Property
 
Private Property Get ICommand_Category() As String
    ICommand_Category = "Samples"
End Property
 
Private Sub ICommand_OnCreate(ByVal hook As Object)
    On Error GoTo ErrorHandler
    
    ' Init our variables
    Set m_pApplication = hook
    Set m_pMxDoc = m_pApplication.Document
    
    Exit Sub
ErrorHandler:
    HandleError True, "ICommand_OnCreate " & c_ModuleFileName & " " & _
        GetErrorLineNumberString(Erl), Err.Number, Err.Source, Err.Description, 2
End Sub
 
Private Sub ICommand_OnClick()
    On Error GoTo ErrorHandler
    
    ClearLayout m_pMxDoc
    
    Exit Sub
ErrorHandler:
    HandleError True, "ICommand_OnClick " & c_ModuleFileName & " " & _
        GetErrorLineNumberString(Erl), Err.Number, Err.Source, Err.Description, 2
End Sub