Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Timer1.Tick
    Static i As Long
    If i < 3 Then i = i + 1 Else i = 0
    RichTextBox1.SelectionStart = 0
    RichTextBox1.SelectionLength = 1
    Select Case i
      Case 0
        RichTextBox1.Rtf = _
          "{\rtf1\ansi{\pict\picscalex100\picscaley100\picw503\pich503\picwgoa" & _
          "285\pichgoal285\wmetafile8 ...
      Case 2
        RichTextBox1.Rtf = _
          "{\rtf1\ansi{\pict\picscalex100\picscaley100\picw503\pich503\picwgoa" & _
          "285\pichgoal285\wmetafile8 ...
      Case 3
        RichTextBox1.Rtf = _
          "{\rtf1\ansi{\pict\picscalex100\picscaley100\picw503\pich503\picwgoa" & _
          "285\pichgoal285\wmetafile8 ...
    End Select
  End Sub