如何兩點劃一菱形?(編號:7448)

vb 6.0
在表單上
mouse左鍵點一下在螢幕上出現一點
左鍵點第二下時螢幕出現菱形區域
   點左鍵第三下以後,判斷其是在菱形內or外,並列印在螢幕上
mouse按右鍵菱形區域線不見
再按一下右鍵菱形又出現