vb编写实时动态的曲线绘制

要求根据text中的数值（single型，而且每两秒变化一次），实时绘制的动态曲线，x轴是时间，y轴是电压。要完整代码
Private Sub Command1_Click()
On Error Resume Next
Me.Caption = "正在连接...."
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = CLng(Text3.Text)
Winsock1.Connect
End Sub

Private Sub Command2_Click()
If Me.Caption <> "连接上" Then Exit Sub
Winsock1.SendData Text2.Text
End Sub

Private Sub Command3_Click()
Me.Caption = "WinSock 调试工具"
Winsock1.Close
End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol

End Sub

Private Sub Winsock1_Close()
Me.Caption = "服务器断开"
End Sub

Private Sub Winsock1_Connect()
Me.Caption = "连接上"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tts As Single
Winsock1.GetData tts, vbString
Text2.Text = tts
End Sub

这是我的socket编程，要求在

VB 画实时曲线 vb打印实时曲线 如何在VB中作实时曲线？ 多项式拟合曲线的绘制 vb工控问题：实现各种数据的采集，写入数据库和曲线的绘制。 VB中怎么把TXT或者数据库的数据绘制成曲线 用VB的MSCOmm控件实现串口通信，对数据进行实时曲线显示问题。 怎么通过excel绘制的标准曲线 怎样绘制二极管的伏安特性曲线 MATlab 绘制二维曲线