| Gets the GefButtonFormat for the object. | |
| Syntax: | Set GefButtonFormat = object.ButtonFormat |
| Description: | Returns Nothing if this property is not
valid for the object. Example: 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" Else MsgBox "This
object is a push button" End If End Sub |