請教如何畫線段並自動標出線段長度(編號:5622)

如何用vb程式在表單上不同位置各按一次滑鼠左鍵,即可畫出一條線段,並且在這線段中間顯示該線段之長度,如圖所示.