Option Strict On
Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
'// 
#End Region
    Dim gr As Graphics
    Dim txt As String = " THE END "
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
        gr = Me.CreateGraphics
    End Sub
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Activated
        For y As Integer = 5 To Me.Height
            gr.Clear(Me.BackColor)
            gr.DrawString(txt, Me.Font, Brushes.White, CSng((Me.Width / 2) - _
              txt.Length), y)
            Application.DoEvents()
            System.Threading.Thread.Sleep(40)
        Next
    End Sub
End Class