تنفيذ عملية الرسم في thread منفصل

السلام عليكم ...

1. ممكن وصل الــ thread مع الحدث paint عن طريق متحول عام , الــ thread يضع فيه بيانات و الــ paint يأخذ منه هذه البيانات ..
2. المشكلة الثانية التي ممكن تواجهها , هي أن الحدث paint يتم إستدعاؤه بشكل متكرر , حيث يتم مسح كامل النافذة , و عليك رسمها من جديد كل مرة ...
3. هذه محاولتي .. لا أعرف مدى دقتها ...

   Imports System.Threading
   
   Public Class FrmThreadDraw
   	Private pointList As New List(Of Point)()
   
   	Private Sub FrmThreadDraw_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       	Dim thread As New Thread(New ParameterizedThreadStart(AddressOf threadMethod))
       	thread.Start(pointList)
   	End Sub
   	Private Sub threadMethod(ByVal parameter As [Object])
       	While True
           	Dim random As New Random()
           	Dim p As New Point(random.Next(10, 1000), random.Next(10, 1000))
           	DirectCast(parameter, List(Of Point)).Add(p)
       	End While
   	End Sub
   
   	Private Sub FrmThreadDraw_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       	For i As Integer = 0 To pointList.Count - 2
           	Dim p1 As Point = pointList(i)
           	Dim p2 As Point = pointList(i + 1)
           	e.Graphics.DrawLine(New Pen(Color.Red), p1, p2)
       	Next
   	End Sub
   End Class