The following example replaces the current picture with a Tag Control
Panel picture when a button is pressed. The tags that are displayed are
retrieved from the currently selected objects.
Private Sub Button_ReplaceTCPPic_Click()
Me.Replace_TCP_Pic
End Sub