Public Class Form1
 
    Sub Test()
 
        Dim obj As IO.FileInfo
        MessageBox.Show(obj.DirectoryName)
 
    End Sub
 
End Class

Public Class Form1
 
    Sub Test()
 
        Dim obj As IO.FileInfo
        obj = New IO.FileInfo("archivo.ext")
        MessageBox.Show(obj.DirectoryName)
 
    End Sub
 
End Class

Imports System.IO
 
Dim files As IEnumerable(Of FileInfo) =
    From filepath As String
    In Directory.GetFiles(".\", "*", SearchOption.AllDirectories)
    Select New FileInfo(filepath)
 
 
For Each fInfo As FileInfo In files
 
    MessageBox.Show(fInfo.FullName)
 
Next fInfo

function MyFunc() as integer
    main.control1.text "lo que sea"
    main.control2.enabled = False
    Return 0
end function

main.Control1.text = MyFuncControl1
main.Control2.enabled = MyFuncControl2
Value = myFuncValue

        If Me.ProgressBar1.InvokeRequired Then
            Me.ProgressBar1.Invoke(Sub()
                                       Me.ProgressBar1.PerformStep()
                                   End Sub)
 
        Else
            Me.ProgressBar1.PerformStep()
 
        End If

if (this.ProgressBar1.InvokeRequired) {
	this.ProgressBar1.Invoke(() => { this.ProgressBar1.PerformStep(); });
 
} else {
	this.ProgressBar1.PerformStep();
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

    ' Invoke Control
    ' ( By Elektro )
    '
    ' Usage Examples :
    ' InvokeControl(TextBox1, Sub(x As TextBox) x.AppendText("Hello"))
    ' InvokeControl(CheckBox1, Sub(x As CheckBox) x.Checked = True)
 
    ''' <summary>
    ''' Invokes an <see cref="T:Action"/> delegate on the specified control.
    ''' This method avoids cross-threading exceptions.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="control">The control to invoke.</param>
    ''' <param name="action">The encapsulated method.</param>
    Public Sub InvokeControl(Of T As Control)(ByVal control As T, ByVal action As Action(Of T))
 
        If control.InvokeRequired Then
            control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl),
                           New Object() {control, action})
 
        Else
            action(control)
 
        End If
 
    End Sub
 
    ' Begin Invoke Control
    ' ( By Elektro )
    '
    ' Usage Examples :
    ' BeginInvokeControl(TextBox1, Sub(x As TextBox) x.AppendText("Hello"))
    ' BeginInvokeControl(CheckBox1, Sub(x As CheckBox) x.Checked = True)
 
    ''' <summary>
    ''' Invokes an asynchronous <see cref="T:Action"/> delegate on the specified control.
    ''' This method avoids cross-threading exceptions.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="control">The control to invoke.</param>
    ''' <param name="action">The encapsulated method.</param>
    Public Sub BeginInvokeControl(Of T As Control)(ByVal control As T, ByVal action As Action(Of T))
 
        If control.InvokeRequired Then
            control.BeginInvoke(New Action(Of T, Action(Of T))(AddressOf BeginInvokeControl),
                                New Object() {control, action})
 
        Else
            action(control)
 
        End If
 
    End Sub

// Invoke Control
// ( By Elektro )
//
// Usage Examples :
// InvokeControl(TextBox1, Sub(x As TextBox) x.AppendText("Hello"))
// InvokeControl(CheckBox1, Sub(x As CheckBox) x.Checked = True)
 
/// <summary>
/// Invokes an <see cref="T:Action"/> delegate on the specified control.
/// This method avoids cross-threading exceptions.
/// </summary>
/// <typeparam name="T"></typeparam>
/// <param name="control">The control to invoke.</param>
/// <param name="action">The encapsulated method.</param>
public void InvokeControl<T>(T control, Action<T> action) where T : Control
{
	if (control.InvokeRequired) {
		control.Invoke(new Action<T, Action<T>>(InvokeControl), new object[] {
			control,
			action
		});
 
	} else {
		action(control);
 
	}
 
}
 
// Begin Invoke Control
// ( By Elektro )
//
// Usage Examples :
// BeginInvokeControl(TextBox1, Sub(x As TextBox) x.AppendText("Hello"))
// BeginInvokeControl(CheckBox1, Sub(x As CheckBox) x.Checked = True)
 
/// <summary>
/// Invokes an asynchronous <see cref="T:Action"/> delegate on the specified control.
/// This method avoids cross-threading exceptions.
/// </summary>
/// <typeparam name="T"></typeparam>
/// <param name="control">The control to invoke.</param>
/// <param name="action">The encapsulated method.</param>
public void BeginInvokeControl<T>(T control, Action<T> action) where T : Control
{
	if (control.InvokeRequired) {
		control.BeginInvoke(new Action<T, Action<T>>(BeginInvokeControl), new object[] {
			control,
			action
		});
 
	} else {
		action(control);
 
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

• Make Thread-Safe Calls to Windows Forms Controls - MSDN
• [VB/C#] Asynchronous Programming
• Control.Invoke Method (Delegate)
• Control.BeginInvoke Method (Delegate)

• System.IO.Directory.GetFiles(String, String, SearchOption) - MSDN
  Returns the names of files (including their paths) that match the specified search pattern in the specified directory, using a value to determine whether to search subdirectories.
• System.Diagnostics.Process.Start(String, String) - MSDN
  Starts a process resource by specifying the name of an application and a set of command-line arguments, and associates the resource with a new Process component.

seguro es de lo mas tonto a preguntar

If (TypeOf obj Is Label) Then
    obj.Text = ""
End If