Public Class Hilfe
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents txt_Hilfe As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.txt_Hilfe = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'txt_Hilfe
        '
        Me.txt_Hilfe.Location = New System.Drawing.Point(0, 0)
        Me.txt_Hilfe.Multiline = True
        Me.txt_Hilfe.Name = "txt_Hilfe"
        Me.txt_Hilfe.Size = New System.Drawing.Size(288, 272)
        Me.txt_Hilfe.TabIndex = 0
        Me.txt_Hilfe.Text = "TextBox1"
        Me.txt_Hilfe.Visible = False
        '
        'Hilfe
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.txt_Hilfe)
        Me.Name = "Hilfe"
        Me.Text = "Hilfe"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
    Dim gr As Graphics
    Dim txt As String = " THE END "
 
    Private Sub Hilfe_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 Hilfe_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Activated
        Dim y As Integer = Me.Height
 
        While y <> -20
            gr.Clear(Me.BackColor)
            gr.DrawString(txt, Me.Font, Brushes.White, CSng((Me.Width / 16) - _
              txt.Length), y)
            Application.DoEvents()
            System.Threading.Thread.Sleep(45)
            y = y - 1
        End While
 
    End Sub
End Class