Foro de elhacker.net

Public Class Form1
 
    Dim Listita As New ListBox
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Size = New Point(240, 240)
 
        Listita.Dock = DockStyle.Fill
        Listita.BackColor = Color.White
        Listita.ForeColor = Color.Black
        Listita.Font = New Font(Listita.Font.FontFamily, 12, Listita.Font.Style)
        Me.Controls.Add(Listita)
 
        Dim Files As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "*", IO.SearchOption.TopDirectoryOnly)
 
        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next
    End Sub
 
End Class

Listita.Dock = DockStyle.Fill ' Esto hace que el form se rellene con el listbox...

Dim Files As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "*", IO.SearchOption.TopDirectoryOnly)

Dim TotalRoms as int32 = "longitud del array" ' Eso no te lo voy a dar hecho, en Google sale, si no sabes búscalo, es sencillísimo xD
Label1.text = "Roms encontrados (" & TotalRoms & ")"

    Dim TotalRoms as int32 = Files.Length
    Label1.text = "Roms encontrados (" & TotalRoms & ")"

Public Class Form2
 
    Dim Listita As New ListBox
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Listita.BackColor = Color.White
        Listita.ForeColor = Color.Black
        Listita.Size = New Point(340, 251)
        Listita.Location = New Point(12, 25) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
        Me.Controls.Add(Listita)
 
        Dim Files As Array = IO.Directory.GetFiles("C:\Users\Alvaro\Documents\", "*", IO.SearchOption.TopDirectoryOnly)
 
        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next
 
        Dim Files1 As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.System), "*", IO.SearchOption.TopDirectoryOnly)
        Dim TotalRoms As Int32 = Files1.Length
        Label1.Text = "Roms encontrados (" & TotalRoms & ")"
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class
 

  AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged

    Private Sub Listita_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim Item As String = Listita.SelectedItem
        MsgBox(Item)
    End Sub

Dim Ruta As String = "C:\Users\Alvaro\Documents\"

Dim Item As String = Listita.SelectedItem
MsgBox(Ruta + Item)