AddHandler OBJETO.EVENTO, AddressOf SUB

        Dim X As New Button
        X.Text = "EJEMPLO"
        AddHandler X.Click, AddressOf EJEMPLO_Click
 
    Private Sub EJEMPLO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 

Process.Start("osk.exe")

    Public Function RandomEx(ByVal Min As Long, ByVal Max As Long, Optional ByVal Count As ULong = 1) As Long()
 
        RandomEx = New Long() {}
 
        Dim Seed As Long = Date.Now.Ticks
 
        Do While RandomEx.Length <> Count
            Array.Resize(RandomEx, RandomEx.Length + 1)
            RandomEx.SetValue((Seed Mod (Max + 1)) + Min, RandomEx.Length - 1)
            Seed -= Math.Floor(Seed / (Count + 1))
        Loop
 
    End Function

(Seed Mod (Max + 1)) + Min

Seed -= Math.Floor(Seed / (Count + 1))

Dim S As New StreamWriter("C:\Archivo.txt")
Dim L As String = Nothing
 
     For Each X As ListViewItem In ListView1.Items
 
         For Each Y As ListViewItem In X.SubItems
               L += Y.Text & ";"
         Next
 
     L = L.Remove(L.Lenght - 1, 1) 'Quita el ";" sobrante
     S.WriteLine(L)
     L = Nothing
 
    Next
 
S.Close()
 

Dim x As ListViewItem = ListView1.Add("Este Valor va en la cloumna 1")
x.SubItems.Add("Este en la columna 2")
x.SubItems.Add("Este en la columna 3")
x.SubItems.Add("Este en la columna 4")
x.SubItems.Add("Este en la columna 5")