بدست آوردن مختصات وسط line

[knight-rak]

سلام دوستان
یه خطی توی برنامه هر بار به طور اتفاقی از یه نقطه ای تا نقطه ی دیگه ای با طول متغیر ایجاد میشه حالا اگه ما بخوایم وسط این خط رو بدست بیاریم باید چکار کنیم
اینم کد ایجاد خط البته این با نقطه شروع ثابت هستش :

Line (intx(1, 1), intx(1, 2))-(intx(f, 1), intx(f, 2)), vbGreen

اگه منظورم رو بد رسونم بگین که بیشتر توضیح بدم

[knight-rak]

میخوام وقتی که خط ایجاد شد توی برنامه نقطه ی وسط این خط بدست بیاد ( مختصات وسطش رو میخوام )
از چه رابطه ای میشه مختصات وسط این خط رو بدست آورد ( منظورم بدست آوردم طول این خط هستش که بعد با تقسیم 2 وسط بدست میاد)
ممنون میشم زود تر کمک کنید

[vb study]

A--------------------m---------------------B
A(X1,Y1) B(X2,Y2)

طول خط =

AB= ( ( (X2-X1)^2)+ ( (Y2-Y1)^2) )^0.5


مختصات نقطه وسط =

m======= Xm= (X1+X2)/2 Ym=(Y1+Y2)/2

[knight-rak]

هنوز امتحان نکردم ولی مطمئنا جواب میده خیلی مرسی