Sets the label for a control.

The string must not be empty (""). At least one blank must be entered (" ").



Sample Ribbon XML file:

<customUI xmlns="" onLoad="CallbackOnLoad">
    <ribbon startFromScratch="false">
            <tab id="MyTab" label="Label Demo">
                <group id="MyGroup" label="Dynamic Label">
                    <labelControl id="myLabel1" getLabel="CallbackGetLabel" />
                    <labelControl id="myLabel2" getLabel="CallbackGetLabel" />

Function to be copied to a standard module:

Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)
    ' Callback Label
    Select Case
        Case "myLabel1"
            label = "Time:"
        Case "myLabel2"
            label = Format(Now, "hh:mm:ss")
        Case "MyButton1"
            label = "Labels refresh"
        Case Else
            label = " "
    End Select
End Sub

You can find this sample in Sample DB 2