[معاند الحظ]

لا مشكلة يا اخي هذا الكود ليس حصرا على الحدث MouseMove يمكنك استخدامه اينما تريد
ولتتوضيح اكثر ، لكي ترسم تحتاج اولا الى استيراد فضاء الاسماء System.Drawing

باستخدام هذا الكود 

كود :

Imports System.Drawing.Drawing2D

ثم تحتاج الى محرك رسوميات Graphic لانه المسؤول عن انشاء الرسومات

ويمكنك اضافته الى اسطر الكود كالاتي

كود :

Dim gr As Graphics= CreateGraphics()

ثم في حالتك التي تريدها وهي رسم نقاط تحتاج الى مسار رسومات Graphics.Path وهو المسؤول عن حفظ 
النقاط التي تريد رسمها مع احداثياتها ويتم الاعلان عنه كالتالي

كود :

Dim myPath As New GraphicsPath

الان بقي ان تعلن عن مصفوفة نقاط لكي تحفظ فيها معلومات واحداثيات النقاط
اعلن عنها كالتالي

كود :

Dim myPointArray As New List(Of Point)

الان بقي ان تعبىء مصفوفة النقاط بالنقاط
انا استخدمت احداثيات مؤشر الفارة عندما تتحرك على النافذة وقمت بتمريرها على التوالي الى myPath 
هنا انت تحتاج الى تعبئة مصفوفة النقاط بالطريقة التي تريدها وبعد ان تكمل تعبئة كل النقاط التي تريدها اطلب من محرك الرسومات

ان ينفذ الرسم (الكود)

كود :

  Dim myPen As New Pen(Color.Black, 2)

        e.Graphics.DrawPath(myPen, myPath)

هذا كل المطلوب لرسم نقاط بالطريقة التي ذكرتها