Public Class Form1
 
    Public Shared Sub Main()
 
        Dim openFileD As New System.Windows.Forms.OpenFileDialog
        Dim result As DialogResult = DialogResult.OK
 
        While result = DialogResult.OK
 
            result = openFileD.ShowDialog()
 
            If result = DialogResult.OK Then
                openFileD.FileName = ""
            Else
                openFileD.Dispose()
            End If
 
        End While
 
    End Sub
 
End Class