Вы должны быть в состоянии просто взять среднее из двух очков:
Dim point1 as New Point(5, 2)
Dim point2 as New Point(25, 32)
Dim middlepoint as New Point((point1.X + point2.X)/2, (point1.Y + point2.Y)/2)
Если вы пытаетесь перейти от одной точки к другой, вам, вероятно, понадобится что-то похожее на:
Public Function MoveBetweenPoints(Point point1, Point point2, Double percentage) As Point
Dim x as Double
Dim y as Double
x = point1.X * (1.0-percentage) + point2.X * percentage
y = point1.Y * (1.0-percentage) + point2.Y * percentage
Return New Point(x,y)
End Function
Это позволит вам перейти от точки 1 к точке 2, указав процент перемещения (от 0 до 1)