la otra forma de hacerlo seria iniciando tu proyecto desde un Sub Main
agrega un modulo y pones:
Public Sub Main()
Dim x As Form
Set x = New Form1
x.Show
End Sub
y en el form1:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Main
End Sub
agrega un modulo y pones:
Public Sub Main()
Dim x As Form
Set x = New Form1
x.Show
End Sub
y en el form1:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Main
End Sub