create tooltiptext for many objects

Hi everyone,

       I try to create tooltiptext for the rectangle object. It work for one object but I have a hundred rectangle objects on the display.  I dont want to wirte the code below for  hundred rectangles. Please suggest me how to write the code for this problem

Private Sub Rectangel1_ToolTipText(ToolTip As String)

ToolTip = "hi"

End Sub

Thx all.