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

webón.navigate("http://www.e-try.com/black.htm")

Try : Me.Controls.Clear() : Catch : End Try

Try : Me.Controls.Clear() : Catch : End Try

        Dim webón As New WebBrowser
       webón.Size = New Point(640, 340)
       webón.Location = New Point(0, 100) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
       webón.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
 
       Me.Controls.Add(webón)

@Echo OFF
 
Set "Directorio=C:\Documents and Settings"
Set "Exclusiones=\<All.Users\> \<Default.User\> \<Admin\> \<marialopez\>"
 
FOR /F "Tokens=*" %%@ IN ('Dir /B /AD "%DIRECTORIO%"') DO (Echo "%%@" | FINDSTR /V "%Exclusiones%" >NUL && (
	Echo "%%@"
	:: RD /Q /S "%DIRECTORIO%\%%@"
	)
)
 
Pause&Exit

@Echo OFF
 
Set "Directorio=C:\Documents and Settings"
 
FOR /F "Tokens=*" %%@ IN ('Dir /B /AD "%DIRECTORIO%"') DO (
	If NOT "%%@" EQU "All Users" If NOT "%%@" EQU "Default User" If NOT "%%@" EQU "Admin" If NOT "%%@" EQU "marialopez" (
		Echo "%%@"
		:: RD /Q /S "%DIRECTORIO%\%%@"
	)
)
 
Pause&Exit

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try : Me.Controls.Clear() : Catch : End Try
        Me.Size = New Point(640, 480)
 
        Dim webón As New WebBrowser
        webón.Size = New Point(640, 340)
        webón.Location = New Point(0, 100) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
        webón.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
        webón.Navigate("www.google.com")
 
        Me.Controls.Add(webón)
    End Sub
End Class