Private Sub Form_Load()
Dim N As Integer
Dim links As Long
 
links = 10
 
For N = 1 To 10
 Load Command(N)
 Command(N).Move links, 100
 Command(N).Caption = "Command " & Str(N)
 links = links + Command(N).Width + 10
 Command(N).Visible = True
Next
 
End Sub