[محمد]

كود :

Module Module1
    Sub Main()
        Console.WriteLine("  Hello ")
        Dim path = Application.StartupPath + "\s.txt"
        If (System.IO.File.Exists(path)) Then
            Process.Start(path)
        Else
            Console.WriteLine("File Not Found ")
End If
if Process."\s.txt open then
me.hide
form1.show
end if