File open dialog
Imports System Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Imports System.Drawing Imports System.Drawing.Drawing2D Public Class MainClass Shared Sub Main() Dim dlg As OpenFileDialog = New OpenFileDialog() Dim res As DialogResult = dlg.ShowDialog() If res = DialogResult.OK Then MessageBox.Show("You picked: " & dlg.FileName) End If End Sub End Class