GefObject.ButtonFormat (read-only property)

Gets the GefButtonFormat for the object.
Syntax: Set GefButtonFormat = object.ButtonFormat
Description: Returns Nothing if this property is not valid for the object.


Sub GefObject_ButtonFormat()
    Dim oCimObj As GefObject
    Dim oCimBtnFmt As GefButtonFormat
    Set oCimObj = CimGetObject
    Set oCimBtnFmt = oCimObj.ButtonFormat
    If oCimBtnFmt Is Nothing Then
        MsgBox "This object is not a push button"
        MsgBox "This object is a push button"
    End If
End Sub