Imports Microsoft.Win32
Public Class Form1
    Dim Lb As New ListBox With {.Dock = DockStyle.Fill, .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Using rkey As RegistryKey = Registry.LocalMachine.OpenSubKey( _
        "Software\Microsoft\Windows\CurrentVersion\Run", False)
            Dim vnames As String() = rkey.GetValueNames
            For Each s As String In vnames
                Lb.Items.Add(s & ",    " & rkey.GetValue(s).ToString)
            Next
        End Using
    End Sub
End Class