' Controls: 1 * Timer
 
Private StartZeit!
 
Private Sub Form_Activate()
 
  Dim x1&, y1&, n&
 
  DoEvents
  StartZeit = Timer
  n = 0
  Timer1.Interval = 20
  Timer1.Enabled = True
  With Me
    .ScaleMode = vbPixels
    .AutoRedraw = True
    For y1 = 0 To .ScaleHeight - 1
      For x1 = 0 To .ScaleWidth - 1
        Me.PSet (x1, y1), IIf((x1 And y1) = 0, vbBlue, vbYellow)
        n = n + 1
        If n = 10 Then
          n = 0
          DoEvents
        End If
      Next x1
    Next y1
  End With
  Beep
 
End Sub
 
Private Sub Timer1_Timer()
 
  Me.Caption = Space$(10) & _
    Format$(Timer - StartZeit, "0.000") & " Sek."
 
End Sub

Gruss,

Zardoz