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
 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pos As Integer = 0
        Dim Palabra As String = Nothing
        Dim Cadena As String = "Hola mundo ¿Cómo estás?"
        Dim Contador As Integer
        Do
            Contador = Contador + 1
            Pos = InStr(1, Cadena, " ", vbTextCompare) 'Busca la posición del primer " "
            If Pos > 0 Then 'Pos > 0 Esto es así cuando se ha encontrado un espacio " "
                Palabra = Mid(Cadena, 1, Pos - 1) 'Obtiene la palabra
                Cadena = Replace(Cadena, Palabra & " ", "") 'Elimina de la cadena la palabra encontrada y el espacio " "
            Else 'Ya no quedan espacios " "
                Palabra = Cadena 'Mete en 'Palabra lo que queda en cadena tal cual
            End If
            ListBox1.Items.Add("Palabra" & Contador & ": " & Palabra)
        Loop Until Pos = 0
    End Sub
 

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Pos As Integer = 0
        Dim Palabra As String = Nothing
        Dim Cadena As String = "Hola mundo ¿Cómo estás?"
        Dim Contador As Integer
        Do
            Contador = Contador + 1
            Pos = Cadena.IndexOf(" ")
            If Pos > -1 Then
                Palabra = Cadena.Substring(0, Pos)
                Cadena = Cadena.Replace(Palabra & " ", "")
            Else
                Palabra = Cadena
            End If
            ListBox1.Items.Add("Palabra" & Contador & ": " & Palabra)
        Loop Until Pos = -1
 
    End Sub
 
 

Private Sub Command1_Click()
        Dim Pos As Integer
        Dim Palabra As String
        Dim Cadena As String
        Dim Contador As Integer
 
        Cadena = "Hola mundo ¿Cómo estás?"
  Do
        Contador = Contador + 1
        Pos = InStr(1, Cadena, " ", vbTextCompare)
        If Pos > 0 Then
        Palabra = Mid(Cadena, 1, Pos - 1)
        Cadena = Replace(Cadena, Palabra & " ", "")
        Else
        Palabra = Cadena
        End If
        List1.AddItem "Palabra" & Contador & ":" & Palabra
  Loop Until Pos = 0
End Sub
 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim frase As String = "Hola Mundo Hacker Soy Flamer"
        Dim matrix() As String = frase.Split(Convert.ToChar(Keys.Space)) 
        Dim NuevaFrase As String = Nothing
        For I as integer = 0 To matrix.Length - 1
            MessageBox.Show(matrix(I))
        Next
    End Sub

Hola
Mundo 
Como

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oracion As String = "Hola Mundo Como estas?"  'Trim(TextBox_oracion.Text())
        Dim i As Integer = 1
        Dim posicion As Integer
        Dim palabra As String
        Dim NuevaFrase As String = Nothing
        Do
            posicion = InStr(i, oracion, Convert.ToChar(Keys.Space))
            If posicion > 0 Then
                palabra = Mid(oracion, i, posicion - i)
                NuevaFrase += palabra
                posicion += 1
                i = posicion
            End If
        Loop Until posicion = 0
        ListBox1.Items.Add(NuevaFrase)
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cadena As String = "Hola Mundo Como estas?"
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space)) 
        Dim NuevaCadena As String = Nothing
        For I As Integer = 0 To Array.Count - 1
            NuevaCadena += Array(I)
        Next
        ListBox1.Items.Add(NuevaCadena)
    End Sub

Option Explicit On
Option Strict On
Public Class Form1
 
    Dim lstLista1 As ListBox = New ListBox 'Nuevo ListBox
    Dim lstLista2 As ListBox = New ListBox 'Nuevo ListBox
    Dim btnNormal As Button = New Button 'Nuevo Button
    Dim btnAleatorio As Button = New Button 'Nuevo Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Controls.Add(lstLista1)
            .Controls.Add(lstLista2)
            .Controls.Add(btnNormal)
            .Controls.Add(btnAleatorio)
            .Size = New System.Drawing.Size(445, 200)
            .Text = "Demo"
        End With
 
 
        lstLista1.Location = New Point(10, 10)
        lstLista1.Width = 200
 
        lstLista2.Location = New Point(lstLista1.Left + lstLista1.Width + 10, 10)
        lstLista2.Width = 200
 
        With btnNormal
            .Size = New System.Drawing.Size(150, 23)
            .Location = New Point(CInt((lstLista1.Width / 2) - (btnNormal.Width / 2) + lstLista1.Left), lstLista1.Height + lstLista1.Top + 10)
            .Text = "Frase Normal"
        End With
 
        With btnAleatorio
            .Size = New System.Drawing.Size(150, 23)
            .Location = New Point(CInt((lstLista2.Width / 2) - (btnAleatorio.Width / 2) + lstLista2.Left), lstLista2.Height + lstLista2.Top + 10)
            .Text = "Frase desordenada"
        End With
 
        AddHandler btnNormal.Click, AddressOf btnNormal_Click
        AddHandler btnAleatorio.Click, AddressOf btnAleatorio_Click
    End Sub
 
    Private Sub btnNormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim IndexItem As Integer = 0
        Dim Cadena As String = "Hola    Mundo Como estas?" & ControlChars.CrLf & "Estoy bien"
        Cadena = Cadena.Replace(ControlChars.CrLf, Convert.ToChar(Keys.Space))
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space))  'Crea un Item en el array por cada palabra de la Cadena {"Hola","","que","","tal"...}
        Dim Lista As New List(Of String)
 
        For I As Integer = 0 To Array.Length - 1
             Lista.Add(Array(I))
        Next
 
        Dim NuevaCadena As String = Nothing 'String para la nueva cadena
        For Each Palabra As String In Lista
            NuevaCadena += Palabra & Convert.ToChar(Keys.Space)
        Next
 
        lstLista1.Items.Clear()
        lstLista1.Items.Add(DBNull.Value)
        lstLista1.Items(IndexItem) = NuevaCadena
    End Sub
 
    Private Sub btnAleatorio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim IndexItem As Integer = 0
        Dim Cadena As String = "Hola Mundo    Como estas?" & ControlChars.CrLf & "Estoy bien"
        Cadena = Cadena.Replace(ControlChars.CrLf, Convert.ToChar(Keys.Space))
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space))  'Crea un Item en el array por cada palabra de la Cadena {"Hola","","que","","tal"...}
        Dim Lista As New List(Of String) 'Lista para las palabras
 
 
        For I As Integer = 0 To Array.Length - 1 Then 
           Lista.Add(Array(I)) 
        Next
 
 
        Dim NumAleatorio As Integer
        Dim Rand As New Random 'El equivalenta a Rnd() de VB (no necesita es uso Randomize())
        Dim NuevaCadena As String = Nothing 'String para la nueva cadena 
        Do
            NumAleatorio = Rand.Next(0, Lista.Count)
            'Obtiene un número aleatorio entre 0 y el número de elementos de la lista
            NuevaCadena += CStr(Lista(NumAleatorio).ToString & Convert.ToChar(Keys.Space))
            'Elimina el elemento de de la lista con índice = NumAleatorio (para evitar repetir palabras)
            Lista.RemoveAt(NumAleatorio)
            My.Application.DoEvents()
        Loop Until Lista.Count = 0
 
        lstLista2.Items.Clear()
        lstLista2.Items.Add(DBNull.Value)
        lstLista2.Items(IndexItem) = NuevaCadena
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.StartPosition = FormStartPosition.CenterScreen
    End Sub
End Class
 

--VB--> Ubound(Array)   --VB.NET--> Array.Count
--VB--> Char(código)     --VB.NET-->  convert.ToChar(código)
--VB--> Mid(Cadena, Start, Lenght)    --VB.NET--> Cadena.Substring(Start, Length)
--VB--> UCase(Cadena) --VB.NET-->  Cadena.ToUpper   

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim idMenu = "1001"
        Dim Menu1 As New ToolStripMenuItem("Menu Item")
 
        Menu1.DropDownItems.Add("Item_1")
        Menu1.DropDownItems.Add("Item_2")
 
        MenuStrip1.Items.Add(Menu1) 'Agrega el menú
 
        'crea eventos para Menu1
        AddHandler Menu1.DropDownItemClicked, AddressOf Menu1_click
 
    End Sub
 
 
    Private Sub Menu1_click(ByVal sender As Object, ByVal e As ToolStripItemClickedEventArgs)
 
        If e.ClickedItem.Text = "Item_1" Then Me.Text = "Item_1"
        If e.ClickedItem.Text = "Item_2" Then Me.Text = "Item_2"
 
    End Sub
End Class

    Private Sub Menu1_click(ByVal sender As Object, ByVal e As ToolStripItemClickedEventArgs)
        Dim IndexItem As Integer
        Select Case e.ClickedItem.Text
            Case "Item_1" : IndexItem = 0
            Case "Item_2" : IndexItem = 1
        End Select
 
 
        If IndexItem = 0 Then Me.Text = "Item1"
        If IndexItem = 1 Then Me.Text = "Item2"
    End Sub

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

        Try
            Dim Resultado As IntPtr 'O Integer o lo que sea
            ' Resultado = ...
 
 
            Dim win32Err As Integer = System.Runtime.InteropServices.Marshal.GetLastWin32Error
 
 
 
            If Resultado = IntPtr.Zero Then  'Si Resultado  es un Stream o String debes poner  'If Resultado.Length = IntPtr.Zero Then'
                Throw New System.ComponentModel.Win32Exception([error]:=win32Err)
            Else
 
                'Variable/Control/Propiedad = Resultado 
 
            End If
 
        Catch ex As Exception
            Throw
 
        Finally
            'Lo que quieras que haga al termintar...
 
        End Try

        Try
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try