求这个结构怎么实现：实时曲线背景网格加入时间点

求高手指点这个结构如何实现：实时曲线背景网格加入时间点
想编一个实时曲线的程序，背景网格移动，想在移动网格上加入时间点，时间写入后停止走动，并随网格一起移动。新手，写了一些，不知道这个加入时间点和网格一起移动如何实现 ，求高手指点，部分代码如下：

Dim m As Integer
Dim i As Single
Dim mytime
Dim k As String
————————————————————————————————
Private Sub Form_Load()
   Picture1.Scale (0, 0)-(600, 300)
   i = 0
   mytime = Time
End Sub
--------------------
Private Sub Timer1_Timer() '画图

  Picture1.DrawWidth = 1
  Picture1.ForeColor = QBColor(13)
  Picture1.Cls
  Picture1.Line (0, 50)-(600, 50) '横线
  Picture1.Line (0, 100)-(600, 100) '横线
  Picture1.Line (0, 150)-(600, 150) '横线
  Picture1.Line (0, 200)-(600, 200) '横线
  Picture1.Line (0, 250)-(600, 250) '横线
  Picture1.Line (0, 300)-(600, 300) '横线
  k = mytime
  i = i + 1

  For m = -480 To 480 Step 120
  Picture1.Line (i + m, 300)-(i + m, 0)  '纵线
  Picture1.PSet (i + m, 2)
  Picture1.Print k
  Next m
      
    If i = 600 Then
    i = 0
    End If

End Sub
-------------------------------------------------------
想着应该是 i+m=0 时，执行k = mytime，然后打印k，而且k随网格一直走到最右边，但是好像很难实现，求高手指导，谢谢！

------解决方案--------------------
补充：time1的时间间隔设置为500ms，两格之间时间相差1s。