スカラベマウスカーソルについて
ActiveX コントロールで書かれています
使用プログラムの例を以下に示します。

' マウスカーソルにスカラベ君を追従させ、指示が有ればヒント文字を入れ替える。

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

Call Scarab(FrmMask, FrmCurs, X, Y) ' スカラベ君をマウスカーソルに追従させる。

End Sub

Static Sub Scarab(MaskFileName As String, CursorFileName As String, X As Single, Y As Single)
' カーソルの位置に適した ヒント文字 を描く。
' スカラベカーソルの振る舞い。イベント発生に応じ、各所でこのサブルーチンを呼ぶ。
Dim Xl As Single, Yl As Single
Dim OldMaskFileName As String, OldCursorFileName As String

If OldMaskFileName <> MaskFileName Then
Set Form1.ScarabCursor.MaskPicture = LoadPicture(MaskFileName)
OldMaskFileName = MaskFileName
End If

If OldCursorFileName <> CursorFileName Then
Set Form1.ScarabCursor.Picture = LoadPicture(CursorFileName)
OldCursorFileName = CursorFileName
End If

If Xl <> X Or Yl <> Y Then
Form1.Cls ' ディスプレイの残像対策。
Xl = X: Yl = Y
Form1.ScarabCursor.ZOrder 0
Form1.ScarabCursor.top = Y
Form1.ScarabCursor.left = X - 700
End If

End Sub