VB_2016_SLIP_26

SLIP 26_1

Option Explicit

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 8

Load mnu(i)

mnu(i).Caption = InputBox("Enter name of control")

Next

End Sub