Module Module1
Sub Main()
If My.Computer.FileSystem.FileExists("c://PWDMain.dat") Then
MsgBox("File found.")
frmPWD.Show()
Else
MsgBox("File not found.")
frmNewPWD.Show()
End If
End Sub
End Module
con questa istruzione il programma si avvia ma si chiude subito mentre le faccio partire il programma direttamente da uno dei 2 form nessun problema e controllando l errore mi riporta codice 0