DropDown - getItemSuperTip

Sets the Supertip for a specific item within the control.

Sample Ribbon XML file:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="CallbackOnLoad">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="MyTab" label="DropDown Sample">
                <group id="MyGroup" label="DropDown Sample">
                    <labelControl id="myLabel1" label="Sample:" />
                    <labelControl id="myLabel2" label="DropDown" />
                    <dropDown id="myDropDown" 
                      label="My Dropdown:"
                      showLabel="true" 
                      getItemImage="CallbackDDGetItemImage" 
                      getItemCount="CallbackDDGetItemCount" 
                      getItemLabel="CallbackDDGetItemLabel" 
                      getItemScreentip="CallbackDDGetItemScreentip" 
                      getItemSupertip="CallbackDDGetItemSupertip" 
                      getItemID="CallbackDDGetItemID" 
                      imageMso="PictureEffectsGlowGallery" 
                      getSelectedItemID="CallbackDDGetSelectedItemID" 
                      onAction="CallbackDropDownOnAction" 
                      sizeString= "WWWWWWWWWWWWW">
                    </dropDown>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>  

Function to be copied to a standard module:

Sub CallbackDDGetItemSupertip(control As IRibbonControl, _
                              index As Integer, _
                              ByRef screentip)
    ' Callback getItemSupertip
    Select Case control.ID
        Case "myDropDown"
            screentip = Nz(DLookup("txtSubName", "tblPictures", _
                                   "txtPicName='" & _
                                   Format(index, "00") & "'"), " ")
    End Select
End Sub

You can find this sample in Sample DB 2