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