サンプルにある HitTestメソッドは動くのですが、それをそのままコピーし、開発プログラムに流用すると稼動しません。

説明

サンプルのソースコードの一部分をコピーして開発に流用することは十分に可能です。
稼動しなかった原因として、コピーした部分が一つの処理のまとまりの途中までであったなどが考えられます。

対応

HitTestメソッドの呼び出しと利用する最小限のソースは、以下のようなものです。

Private Sub KnTView1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

Dim htr As HitTestResult
Set htr = KnTView1.HitTest(X, Y)

If htr.ObjectType = tivTimeScale Then
Debug.Print “Time: ” & htr.Time
End If
End Sub