I have following code :
Sub create_ButtonFromVendor Dim i As Integer i=1 Create ButtonPad "allVendor" As ToggleButton Icon MI_ICON_ZOOM_QUESTION Calling get_Vendor HelpMsg vendors(i) Show For i = 2 TO Ubound(vendors) Alter ButtonPad "allVendor" Add ToggleButton Icon MI_ICON_ZOOM_QUESTION Calling vendor_ButtonAction(vendors(i)) HelpMsg vendors(i) Show Next End Sub
It is small sub procedure. Here I wanted to create multiple buttons with different function in a loop. How would I add function in a loop? In the code I added above does not work as handler must be sub procedure without parameter.