ツールチップの制御

'IFeatureLayerの取得
Dim pFeatureLayer As IFeatureLayer
Set pFeatureLayer = pLayer

'ツールチップを表示するフィールド名を指定
pFeatureLayer.DisplayField = "JCODE"

'ツールチップの表示をOn
pFeatureLayer.ShowTips = True

'指定した座標・トレランスでツールチップ情報を表示
Dim strToolTip As String
strToolTip = pFeatureLayer.TipText(135, 35, 0.1)
MsgBox strToolTip