ツールチップの制御

'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