RosettaCodeData/Task/Program-termination/Visual-Basic/program-termination.vb
2023-07-01 13:44:08 -04:00

10 lines
169 B
VB.net

Sub Main()
'...
If problem Then
For n& = Forms.Count To 0 Step -1
Unload Forms(n&)
Next
Exit Sub
End If
'...
End Sub