Module Test

Private ofdAbrir As Windows.Forms.OpenFileDialog

Sub Main()

    Try
        ofdAbrir = New Windows.Forms.OpenFileDialog
        ofdAbrir.ShowDialog = Windows.Forms.DialogResult.OK
        ofdAbrir.Dispose()
        ofdAbrir = Nothing
    Catch ex As Exception
    End Try
End Sub
End Module

Shell(My.Application.Info.DirectoryPath & "Test1.exe", AppWinStyle.Hide, True)