Module Base
    ' Основной модуль. Основа всего.
    Public Zas As New Start ' Объект первой формы. Заставка программы.

    Sub Main() ' Стартовая процедура. Основа всего.
        MVars.SHeight = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height ' Получаю высоту экрана.
        MVars.SWidth = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width ' Получаю ширину экрана.
        Zas.Height = CInt(MVars.SHeight * 0.6) ' Устанавливаю высоту заставки.
        Zas.Width = CInt(MVars.SWidth * 0.6) ' Устанавливаю ширину заставки.
        Zas.BackColor = System.Drawing.Color.White ' Устанавливаю белый цвет формы.
        Zas.Show() ' Вывожу заставку программы.
        System.Threading.Thread.Sleep(10000)  ' Делаю десятисекундную задержку.
    End Sub
End Module

Module MVars
    ' Модуль хранения математических переменных.
    Public SHeight As Integer ' Переменная хранения высоты экрана.
    Public SWidth As Integer ' Переменная хранения ширины экрана.
End Module

Public Class Start

    Private Sub Start_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Start_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        ' Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim FPn As New System.Drawing.Pen(Drawing.Color.FromArgb(255, 0, 0, 0), 1)
        e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.DrawLine(FPn, 0, 0, Me.Width - 1, Me.Height - 1)
    End Sub
End Class

Private Sub Start_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim FPn As New System.Drawing.Pen(Drawing.Color.FromArgb(255, 0, 0, 0), 1)
        e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.DrawLine(FPn, 0, 0, Me.Width - 1, Me.Height - 1)
    End Sub