Option Explicit
 
 Const BoxOffset As Integer = 0
 Const LineOffset As Integer = 1
 
Dim myfloat As Double
 
Private Declare Function StretchBlt Lib "gdi32.dll" (ByVal hdcDest As Long, _
  ByVal nXDest As Long, ByVal nYDest As Long, ByVal nDestWidth As Long, ByVal _
  nDestHeight As Long, ByVal hdcSrc As Long, ByVal XSrc As Long, ByVal YSrc As _
  Long, ByVal hSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) _
  As Long
 
Private Sub BlitX(ByVal SourceHdc As Long, ByVal SourceX As Long, ByVal SourceY _
  As Long, ByVal SourceW As Long, ByVal SourceH As Long, ByVal DestHdc As Long, _
  ByVal DestX As Long, ByVal DestY As Long)
Dim Answer As Integer
Answer = StretchBlt(DestHdc, DestX, DestY, SourceW - BoxOffset, SourceH - _
  BoxOffset, SourceHdc, SourceX, SourceY, SourceW - BoxOffset, SourceH - _
  BoxOffset, &HCC0020)
If Answer = 0 Then MsgBox "Failed"
End Sub
 
Private Sub MovePic(ByVal SourceHdc As Long, ByVal MyStep As Long)
BlitX SourceHdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SourceHdc, _
  MyStep, 0
End Sub
 
Private Sub Form_Load()
Picture1.ScaleMode = 3
End Sub
 
Private Sub Timer1_Timer()
myfloat = myfloat + (1 / 10)
MovePic Picture1.hDC, -1
NewLine Sin(myfloat) * 30 + Sin(myfloat * 1.5) * 20
End Sub
 
Private Sub NewLine(ByVal MyValue As Variant)
Picture1.Line (Picture1.ScaleWidth - LineOffset, 0)-(Picture1.ScaleWidth - _
  LineOffset, Picture1.ScaleHeight), 0
Picture1.Line (Picture1.ScaleWidth - LineOffset, Picture1.ScaleHeight / 2 - _
MyValue - 4)-(Picture1.ScaleWidth - LineOffset, Picture1.ScaleHeight / 2 - _
MyValue), RGB(0, (MyValue + 50) * 6, Abs(MyValue - 50) * 6)
End Sub