'Benötigt werden: 2 Shapes, 1 Timer
Private Sub Form_Load()
  Me.WindowState = 2
  Me.ScaleMode = 3
  Shape1.Move 150, 80, 200, 150
  Shape2.Move 150, 80, 200, 150
  Shape1.BorderStyle = 3
  Shape1.ZOrder
  Timer1.Interval = 180
End Sub
 
Private Sub Timer1_Timer()
  Static W As Byte
  W = W Xor 1
  Shape1.BorderColor = W * vbWhite
  Shape2.BorderColor = (1 - W) * vbWhite
End Sub