(let ((left 0)
      (top 0))
  (switch-to-buffer (get-buffer-create "sample"))
  (while t
    (let ((frame (make-frame `((parent-frame . ,(selected-frame))
                               (left . ,left)
                               (top . ,top)
                               (width . 40)
                               (height . 3))))
          (buf (get-buffer-create "buffer-in-frame")))
      (setq left (1+ left))
      (when (> left 60)
        (setq left 0)
        (setq top (1+ top))
        (redisplay))
      (with-selected-frame frame
        (switch-to-buffer buf)
        (insert "Hello!\n")))))