Visual Basic

Public Module1
Public Sub AddMenus()
Dim FormIndex As Integer
Dim ReportViewName(2 To 4) As String
‘create menu structure for the workbook
‘read variable values – FormIndex=2, etc.
End Sub

Tim Bostwick wrote:

Also, would it help to put the code in a Class Module?

Dim MyVar as ClassModule1
Set MyVar = New ClassModule1

I are Troll

Public Module1 ' static class
Public FormIndex As Integer ' outside the function, compareable to a static variable

Public Sub AddMenus() ' static method
Dim ReportViewName(2 To 4) As String
‘create menu structure for the workbook
‘read variable values – FormIndex=2, etc.
End Sub

I are Troll

Option Explicit

Public FormIndex as Integer

Public Sub AddMenus()
Dim ReportViewName(2 To 4) As String
‘create menu structure for the workbook
‘read variable values – FormIndex=2, etc.
End Sub

Mike Deeks wrote:

Would it really hurt VB.net so much to have Control Arrays

Dave Kreskowiak wrote:

Yes, because the concept isn't OOP complian

Luc Pattyn wrote:

you can always use myContainer.Controls(index)

Public Function CreateLotsOfStuff(FirstItem as Control, NumberToCreate as Integer) as List(Of Control)
  Dim ctlList as New List(Of Control)
  Dim previousItem as Control = FirstItem

  For x as Integer = 0 To NumberToCreate - 2  'First one's there already
    Dim c as Control = previousItem .Clone()
    ctlList.Add(c)
    previousItem .Parent.Controls.Add(c)
    c.Top = previousItem.Top + previousItem.Height + 5
  Next x

  Return ctlList
End Function