Option Explicit
Private Type PunktAPI
  X As Long
  Y As Long
End Type
Private Declare Function Polygon& Lib "gdi32" (ByVal hdc&, _
  lpPoint As PunktAPI, ByVal nCount&)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
 
Private Sub Form_Activate()
  Dim i%, SW%, SH%, Breite%, Fkt!, Pro%, Fg(2) As PunktAPI, Max%, Min%, Temp%, _
    X$, AG$
  WindowState = 2
  AutoRedraw = True
  FillStyle = 0
  ScaleMode = 3
  SW = ScaleWidth
  SH = ScaleHeight
  FillColor = vbWhite
  BackColor = vbRed
  FontSize = 24
  Breite = 50
  Min = 90
  Max = 20
  X = "Xjmmlpnnfo!{vsýdl!Ejfufs": AG = ""
  For i = 1 To Len(X): AG = AG & Chr(Asc(Mid(X, i, 1)) - 1): Next i
  Do
    For Pro = Min To Max Step Sgn(Max - Min)
      Fkt = Pro / 100
      Cls
      CurrentX = (SW - TextWidth(AG)) \ 2
      CurrentY = (SH - TextHeight(AG)) \ 2
      ForeColor = vbYellow
      Print AG
      ForeColor = 0
      For i = 0 To SW - 1 Step Breite
        Fg(0).X = i + Breite / 2: Fg(0).Y = SH - 1
        Fg(1).X = i - Breite / 2: Fg(1).Y = SH - 1
        Fg(2).X = i: Fg(2).Y = SH * Fkt
        Call Polygon(hdc, Fg(0), 3)
        Fg(0).X = i: Fg(0).Y = 0
        Fg(1).X = i + Breite - 1: Fg(1).Y = 0
        Fg(2).X = i + Breite / 2: Fg(2).Y = SH - 1 - SH * Fkt
        Call Polygon(hdc, Fg(0), 3)
      Next i
      DoEvents
      Call Sleep(10)
    Next Pro
    Temp = Min: Min = Max: Max = Temp
  Loop
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub