Public Class Form1
 Dim LabelArray(6) As Label
 
Private sub Evento()
        For Index As Integer = 0 To LabelArray.Length - 1
            LabelArray(Index) = New Label
            Me.Controls.Add(LabelArray(Index))
        Next
 
End Sub
End Class
 

Option Explicit On
Option Strict On
Public Class Form1
    Dim LabelArray(6) As Label
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim StartLabel As Point = New Point(10, 10)
 
 
          For Index As Integer = 0 To LabelArray.Length - 1
            LabelArray(Index) = New Label()
            With LabelArray(Index)
                .Text = "Label" & Index
                .ForeColor = Color.Red
                .Font = New Font("Arial", 10)
                .BackColor = Color.Blue
                .TextAlign = ContentAlignment.MiddleCenter
                .Location = New Point(StartLabel.X, StartLabel.Y)
            End With
            Me.Controls.Add(LabelArray(Index)) 'Añade el control al Form
            StartLabel.Y += 30 'Incrementa la posición Y, para que los labels queden uno debajo del otro 
        Next
 
         'Vincula   LabelArray_Click con el evento Click del control LabelArray 
        For I As Integer = 0 To LabelArray.Length - 1
            AddHandler LabelArray(I).Click, AddressOf LabelArray_Click 
        Next
    End Sub
 
    Private Sub LabelArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Obtiene el índice del control seleccionado
        Dim Index As Integer = Array.IndexOf(LabelArray, sender)
 
        If Index.Equals(0) Then LabelArray(0).Text = "HOLA"
    End Sub
End Class

Option Explicit On
Option Strict On
Class MainWindow
    Dim LabelArray(6) As Label
    Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Dim StartLabel As New Point(X:=50, Y:=50)
        For Index As Integer = 0 To LabelArray.Length - 1
            LabelArray(Index) = New Label()
            With LabelArray(Index)
                .Content = "Label" & Index  'Texto que muestra el Label
                .Width = 100
                .Height = 20
                .Foreground = Brushes.Red 'Color del texto
                .Background = Brushes.Blue 'Color del fondo
                .FontFamily = New FontFamily("Arial")
                .FontSize = 15
                .Padding = New Thickness(25, 1, 0, 0) 'Colocación del texto dentro del label
                .VerticalAlignment = Windows.VerticalAlignment.Top 'Colocación del label 
                .HorizontalAlignment = Windows.HorizontalAlignment.Left  'Colocación del label 
                .Margin = New Thickness(StartLabel.X, StartLabel.Y, 0, 0) 'Margen Izquierda, Arriba,  Derecha, Abajo
            End With
            Grid1.Children.Add(LabelArray(Index)) 'Añade el control a Grid1 (NOTA: El Grid debe ser nombrado para poder establecer esta propiedad)
            StartLabel.Y += 30
        Next
 
        For I As Integer = 0 To LabelArray.Length - 1
            AddHandler LabelArray(I).MouseLeftButtonDown, AddressOf LabelArray_MouseLeftButtonDown  'Vincula LabelArray con el evento LabelArray_Click y evento Click
        Next
    End Sub
 
    Private Sub LabelArray_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
        Dim Index As Integer = Array.IndexOf(LabelArray, sender)
        If Index.Equals(0) Then LabelArray(0).Content = CStr("Hola")
    End Sub
End Class

AddHandler LabelArray(I).Click, AddressOf LabelArray_Click 

Private Sub LabelArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   'Obtiene el índice del control seleccionado
   Dim Index As Integer = Array.IndexOf(LabelArray, sender)
    If Index.Equals(0) Then LabelArray(0).Text = "HOLA"
 End Sub
 

 MnuRepasoSuma.DropDownItems.Add(Prueba(I))
 

Option Strict On
Option Explicit On
Public Class Form1
 
    Private mnuStrip1 As New MenuStrip()
    Private mainToolStripMenuItem As New ToolStripMenuItem()
    Private Item(3) As ToolStripMenuItem
    Private SubItem1(3) As ToolStripMenuItem
    Private Separator(0) As ToolStripSeparator
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        '*****Crea la cabezera del menú  mnuStrip1 ********
        Me.mainToolStripMenuItem.Text = "Archivo"
        mnuStrip1.Items.AddRange(New ToolStripItem() {mainToolStripMenuItem}) 'Añade un submenú para añadir Items
        Me.Controls.Add(mnuStrip1)
        '**************************************************
        '
        For numItms As Integer = 0 To Item.Count - 1
            Dim name As String = Nothing
            Select Case numItms
                Case 0 : name = "Abrir"
                Case 1 : name = "Guardar"
                Case 2 : name = "Recientes"
                Case 3 : name = "Cerrar"
                    'Crea un Separador encima del Item3
                    Separator(0) = New ToolStripSeparator
                    mainToolStripMenuItem.DropDownItems.Add(Separator(0)) 'Separador
            End Select
            Item(numItms) = New ToolStripMenuItem(name)
            mainToolStripMenuItem.DropDownItems.Add(Item(numItms))
 
            'Añade subItems al Item 2
            If numItms = 2 Then 'Añade subItems al Item 2 (Recientes)
                For numSubItm As Integer = 0 To SubItem1.Count - 1
                    Select Case numSubItm
                        Case 0 : name = "File1"
                        Case 1 : name = "File2"
                        Case 2 : name = "File3"
                        Case 3 : name = "File4"
                    End Select
                    SubItem1(numSubItm) = New ToolStripMenuItem(name) 'Crea SubItem1 para Item2
                    Item(2).DropDownItems.Add(SubItem1(numSubItm)) 'Añade 'SubItem1
                Next
            End If
        Next
 
        'Crea evento click para los Items
        For I As Integer = 0 To Item.Count - 1
            AddHandler Item(I).Click, AddressOf Item_Click
        Next I
        'Crea evento click para los Subitems
        For I As Integer = 0 To SubItem1.Count - 1
            AddHandler SubItem1(I).Click, AddressOf SubItem1_Click
        Next I
    End Sub
    Private Sub Item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Obtiene el índice del Item seleccionado
        Dim Index As Integer = Array.IndexOf(Item, sender)
 
        'Muestra un mensaje con el texto del Item
        MessageBox.Show(Item(Index).Text)
 
        'Cierra la apliación si se hace click en el Item 3 de la colección
        If Index = 3 Then End
    End Sub
    Private Sub SubItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Obtiene el índice del Item seleccionado
        Dim Index As Integer = Array.IndexOf(SubItem1, sender)
 
        'Muestra un mensaje con el texto del SubItem
        MessageBox.Show(SubItem1(Index).Text)
    End Sub
End Class
 

Option Explicit On
Option Strict On
Public Class Form1
    Dim Contextmenu1 As New ContextMenu()
    Dim ContextItems1(3) As MenuItem
    Dim SubItems1(3) As MenuItem
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For numCItm As Integer = 0 To ContextItems1.Count - 1
            Dim name As String = Nothing
            Select Case numCItm
                Case 0 : name = "Item0"
                Case 1 : name = "-"
                Case 2 : name = "Item2"
                Case 3 : name = "Item3"
            End Select
            ContextItems1(numCItm) = New MenuItem(name)
            If numCItm = 2 Then
                For numCSubItm As Integer = 0 To SubItems1.Count - 1
                    Select Case numCSubItm
                        Case 0 : name = "SubItem0"
                        Case 1 : name = "SubItem1"
                        Case 2 : name = "SubItem2"
                        Case 3 : name = "SubItem3"
                    End Select
 
                    'Añade SubItems al Item 2
                    SubItems1(numCSubItm) = New MenuItem(name) 'Crea SubItemX del Item2
                    ContextItems1(numCItm).MenuItems.Add(SubItems1(numCSubItm)) 'Añade el subItemX
                    'Evento para los SubItems
                    AddHandler ContextItems1(numCItm).MenuItems(numCSubItm).Click, AddressOf SubItems1_Click
                Next
            End If
            'Añade los Items
            Contextmenu1.MenuItems.Add(ContextItems1(numCItm))
            'Evento de los Items
            AddHandler ContextItems1(numCItm).Click, AddressOf ContextItems1_Click
        Next
    End Sub
 
    Private Sub ContextItems1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Obtiene índice control seleccionado
        Dim Index As Integer = Array.IndexOf(ContextItems1, sender)
 
        'Muestra el texto del Item en la barra de título
        MessageBox.Show(ContextItems1(Index).Text)
    End Sub
    Private Sub SubItems1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Obtiene índice control seleccionado
        Dim Index As Integer = Array.IndexOf(SubItems1, sender)
 
        'Muestra el texto del SubItems en la barra de título
        MessageBox.Show(SubItems1(Index).Text)
    End Sub
 
    Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        If e.Button = MouseButtons.Right Then
            Contextmenu1.Show(ListBox1, New System.Drawing.Point(e.Location.X, e.Location.Y))
        End If
    End Sub
End Class