Option Explicit
Private Declare Function BitBlt& Lib "gdi32" ( _
  ByVal hdcDest&, ByVal XDest&, _
  ByVal YDest&, ByVal nWidth&, _
  ByVal nHeight&, ByVal hDCSrc&, _
  ByVal xSrc&, ByVal ySrc&, ByVal dwRop&)
 
Private Sub Form_Activate()
  Dim SW%, SH%, i%, TH%, N&, Ausgabe$
  Me.ScaleMode = vbPixels
  TH = Me.TextHeight("W")
  SW = Me.ScaleWidth
  SH = Me.ScaleHeight
  Me.AutoRedraw = True
  Me.ForeColor = vbWhite
  Randomize
  Do
    For i = 1 To 30
      Me.Line (0, SH - 1)-(SW - 1, SH - 1), RGB(Rnd * 64, Rnd * 64, Rnd * 64)
      Call BitBlt(Me.hDC, 0, 0, SW, SH, Me.hDC, 0, 1, vbSrcCopy)
      Me.Refresh
    Next i
    N = N + 1
    Ausgabe = "Dies ist ein Scrolltext " & N
    Me.CurrentX = (SW - Me.TextWidth(Ausgabe)) / 2
    Me.CurrentY = SH - TH
    Me.Print Ausgabe
    DoEvents
  Loop
End Sub