|
Private Sub SuperMap1_Tracking(ByVal x As Double, ByVal y As Double, ByVal dCurrentLength As Double, ByVal dCurrentAngle As Double, ByVal dTotalLength As Double, ByVal dTotalArea As Double, ByVal nButtonClicked As Long)
TxtCurLength.Text = dCurrentLength
TxtTolLength.Text = dTotalLength
TxtArea.Text = dTotalArea
End Sub |