Namespace My
    Partial Friend Class MyApplication
        Sub MyStartUp(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            If 1 = 1 Then 'qui ovviamente non sto a dire cosa devi fare!
                e.Cancel = True
            End If
        End Sub
    End Class
End Namespace