Это проблема операционной системы космоса. Окно гаснет, как только начинается

Question

Спасибо всем за ответ на мой вопрос. Но моя цель - показать курсор мыши в квадрате. Могу я задать вам еще один вопрос?

Imports System
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Text
Imports Cosmos.System
Imports Cosmos.System.Graphics

Namespace cosmoswidok

Public Class Kernel


    Inherits Cosmos.System.Kernel
    Dim y As UInteger
    Dim x As UInteger
    Dim can As Canvas
    Protected Overrides Sub BeforeRun()
        can = FullScreenCanvas.GetFullScreenCanvas
        can.Clear(Color.Yellow)
        MouseManager.ScreenHeight = 500
        MouseManager.ScreenHeight = 500
        MouseManager.X = 0
        MouseManager.Y = 0
    End Sub

    Protected Overrides Sub Run()

        x = MouseManager.X
        y = MouseManager.Y

        can.DrawRectangle(New Pen(Color.Black, 5), x, y, 25, 25)
    End Sub

End Class

End Namespace

Я набрал код следующим образом: окно исчезает, как только оно начинается. Почему это происходит?

вывод

Setting FirstDataLookupTable to 
0x0227614B
FirstDataLookupTable was set to 
0x0227614B
In Cosmos.System.Kernel..ctor
Starting kernel
HW Bootstrap Init
Global Init
Creating Console
Creating Keyboard
HW Init
Creating Primary ATA IOGroup
Creating Secondary ATA IOGroup
Before Core.Global.Init
PCI Devices
ACPI Init
PS/2 Controller Init
'' The program has been terminated.(code: 0 (0x0)).