Imports System.Drawing.Drawing2D
Imports System.Threading
 
Public Class Form1
 
    Dim str As String =
"PROJECTION:
IF INTRUDER ORGANISM REACHES
CIVILIZED AREAS...
 
ENTIRE WORLD POPULATION INFECTED
27,000 HOURS FROM FIRST CONTACT."
 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
 
        ' Draw Panel Border.
        Using g As Graphics = Me.Panel1.CreateGraphics(),
              pen As New Pen(Color.FromArgb(255, 36, 244, 248), 6)
 
            pen.Alignment = PenAlignment.Inset
            g.DrawRectangle(pen, Me.Panel1.ClientRectangle)
        End Using
 
        ' Clear label text and set text font.
        Me.Label1.Text = ""
        Me.Label1.Font = New Font("MODESEVEN", 20)
        Me.Update()
        Thread.Sleep(1000)
 
        ' Write the text.
        For Each c As Char In Me.str
            Me.Label1.Text &= c
            Me.Label1.Update()
            Thread.Sleep(80)
        Next c
 
    End Sub
 
End Class

• http://www.mediafire.com/file/mjeymo03er9fvf5/WindowsApp1.zip/file

• https://www.fontspace.com/andrew-bulhak/modeseven

• https://foro.elhacker.net/net/libreria_de_snippets_para_vbnet_compartan_aqui_sus_snippets-t378770.0.html;msg2186824#msg2186824

            // Escribir textos.
            Console.SetCursorPosition(2, 3);
            Escribir("PROYECCIÓN: \n", 25);
            Console.SetCursorPosition(2, 4);
            Escribir("SI ORGANISMO INTRUSO ALCANZA \n", 25);
            Console.SetCursorPosition(2, 5);
            Escribir("ZONAS CIVILIZADAS . . . \n", 25);
            Thread.Sleep(100);
            Console.SetCursorPosition(2, 9);
            Escribir("TODA LA POBLACIÓN MUNDIAL INFECTÓ\n", 25);
            Console.SetCursorPosition(2, 10);
            Escribir("27,000 HORAS DESDE EL PRIMER\n", 25);
            Console.SetCursorPosition(2, 11);
            Escribir("CONTACTO. \n", 25);

• https://docs.microsoft.com/en-us/windows/console/setcurrentconsolefontex

Imports System.ComponentModel
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Text
Imports System.Threading
 
Module Module1
 
    ReadOnly str As String =
"PROJECTION:
IF INTRUDER ORGANISM REACHES
CIVILIZED AREAS...
 
ENTIRE WORLD POPULATION INFECTED
27,000 HOURS FROM FIRST CONTACT."
 
    Sub Main()
        Console.Title = "The Thing - La Cosa"
        Console.WindowWidth = 60
        Console.WindowHeight = 20
 
        ' Paint background.
        Console.BackgroundColor = ConsoleColor.DarkBlue
        Console.Clear()
 
        ' Draw border.
        Console.ForegroundColor = ConsoleColor.Cyan
        Dim rc As ConsoleRectangle = New Rectangle(2, 2, Console.WindowWidth - 4, Console.WindowHeight - 4)
        rc.Write()
 
        ' Draw Text.
        Dim x As Integer = (rc.Width \ 5)
        Dim y As Integer = (rc.Height \ 3)
        ConsoleUtil.SetConsolefont("Consolas", bold:=False)
        Console.SetCursorPosition(x, y)
 
        For Each c As Char In str
            If c.Equals(ControlChars.Cr) Then
                Console.SetCursorPosition(x, Interlocked.Increment(y))
                Continue For
            End If
 
            If c.Equals(ControlChars.Lf) Then
                Continue For
            End If
 
            Console.Write(c)
            Thread.Sleep(80)
        Next
 
        Console.ReadKey(intercept:=True)
    End Sub
 
End Module

• http://www.mediafire.com/file/vns7y8gzc94bddy/ConsoleApp1.zip/file

using System;
using System.Windows.Forms;
 
namespace The_Thing_La_Cosa
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        string texto = @"
PROJECTION:
IF INTRUDER ORGANISM REACHES
CIVILIZED AREAS . . .
 
 
ENTIRE WORLD POPULATION INFECTED
27,000 HOURS FROM FIRST CONTACT.
";
        int contador = 0;
 
        private void timer1_Tick(object sender, EventArgs e)
        {
 
           label1.Text += texto[contador++];
 
            if (contador >= texto.Length)
            {
                timer1.Enabled = false;
                Console.Beep(600, 25); // Console.Beep(frecuencia, duracion);
            }
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            timer1.Enabled = true;
        }
    }
}

private void Form1_Load(object sender, EventArgs e)
        {
            Thread tr = new Thread(new ThreadStart(drawlines));
            tr.Start();
        }
 
        public delegate void Function();
        Point A = new Point(5, 5);
        Point B = new Point(5, 5);
 
        private void drawlines()
        {
            Thread.Sleep(1000);
            drawMarco();
            Thread.Sleep(25);
            SetText("2", "PROJECTION:");
            SetText("3", "IF INTRUDER ORGANISM REACHES");
            SetText("4", "CIVILIZED AREAS . . .");
            Thread.Sleep(100);
            SetText("7", "ENTIRE WORLD POPULATION INFECTED");
            SetText("8", "27,000 HOURS FROM FIRST CONTACT.");
            Thread.Sleep(2000);
            clrscr();
            drawMarco();
            SetText("1", "PROYECCIÓN:");
            SetText("2", "SI ORGANISMO INTRUSO ALCANZA");
            SetText("3", "ZONAS CIVILIZADAS . . . ");
            Thread.Sleep(100);
            SetText("7", "TODA LA POBLACIÓN MUNDIAL INFECTÓ");
            SetText("8", "27,000 HORAS DESDE EL PRIMER");
            SetText("9", "CONTACTO.");
            Thread.Sleep(2000);
            Application.Exit();
 
        }
 
        private void clrscr()
        {
            A = B;
            Graphics ps = this.CreateGraphics();
            ps.FillRectangle(new SolidBrush(Color.DarkBlue), 0,0, this.Width, this.Height);
            foreach (Control control in Controls)
            {
                this.Invoke(new Function(delegate ()
                {                
                    control.Text = "";
                }));                
            }
 
        }
 
        private void SetText(string name, string txt)
        {
            string nombre = $"label{name}";
            foreach (char letra in txt)
            {
                this.Invoke(new Function(delegate ()
                {            
 
                    Controls[nombre].Text += letra;
                }));
                Console.Beep(600, 25);
                Thread.Sleep(25);
 
            }
        }
 
 
 
        private void drawMarco()
        {
            for (int i = 5; i < this.Width - 20; i++)
                SetMarco(i, B.Y);            
            for (int i = 5; i < this.Height - 40; i++)
                SetMarco(B.X, i);            
            for (int i = this.Width - 20; i > 5; i--)
                 SetMarco(i, B.Y);            
            for (int i = this.Height - 40; i > 5; i--)
                 SetMarco(B.X, i);
        }
 
        private void SetMarco(int x,int y)
        {
            this.Invoke(new Function(delegate ()
              {
                  A = B;
                  B = new Point(x, y);
                  Graphics ps = this.CreateGraphics();
                  ps.DrawLine(new Pen(Color.Blue,3), A, B);
              }));
            Thread.Sleep(1);
        }