Ya he tratado con Form.Hide() pero me da este error:

Error   1   'app.Form1' no puede hacer referencia a sí mismo a través de su instancia predeterminada; utilice 'Me' en su lugar.   Cuando le pongo Me me quita el error pero no me oculta la form.

Buenas ante todo: Como pudiera ejecutar mi aplicación de forma oculta; que no se muestre la form en vb.net 

Funciona perfecto lo que mediste: Como siempre resolviendo los problemas de otros. Muchas gracias...

Mi hermano me funciona perfecto, pero como logro contar la cantidad de fichero por tipo de extensión

Buenas ante todo: Tengo un código que me enumera la cantidad de ficheros encontrados en un directorio, la cuestión es que quiero  enumerar estos ficheros por tipo de exenciones para poder generar un informe con esa información y no tengo ni la mas mínima idea de como hacerlo, me pudieran ayudar...

Este es parte del código

 
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dim dirpath As String = FolderBrowserDialog1.SelectedPath
filepaths = Directory.GetFiles(dirpath, "*", SearchOption.AllDirectories)
Me.ListBox1.DataSource = filepaths
Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"
 
 

Buenas y saludos ante todo:  Tengo hecha una aplicación en VB.net   que quisiera detener una vez echada  andar, el problema es que al darle al botón que inicia el procedimiento,  me inhabilita todos los de mas botones y no puedo detenerla ni cerrarla hasta que termina. Me pudieran ayudar...

Alguien me pudiera decir como eliminar lineas repeticiones de un txt, o como pudiera evitar repetir lineas antes de guardarlas.

Gracias nuevamente, me sirvió lo que me diste   

Disculpa, como les dije soy novato en este lenguaje, estoy usando VB.net.  Ya logre quitar el error, pero como lo paso el contenido del listbox a la variable: Esto es lo que tengo...

Dim Dr As String
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dr = FolderBrowserDialog1.SelectedPath
For Each arq As String In Directory.GetFiles(Dr, "*.*", SearchOption.AllDirectories)
ListBox1.Items.Add(arq)
Next
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
MsgBox(ListBox1.Items(i))
Next i
 

Disculpen la pregunta el problema es que soy novato en este lenguaje,  estoy tratando de capturar los item de un listbox y pasarlo a una variable pero no lo e logrado, e encontrado algunas cosas en la web pero me dan error.
Esto es algo de lo que e encontrado:

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next i
End Sub