選択（VerboseEvents）のインデックス（データ フレーム・（VerboseEvents））を取得

public object SelectedLayerInformation(IMxDocument pMxDocument, ref Inteer FrameIndex, ref int LayerIndex)
{
    int intFrame = 0;
    int intLayer = 0;
    bool blnFrag = false;
    IMap pMap = default(IMap);
    //選択したレイヤのデータフレーム インデックス、レイヤ インデックスを取得
    for (intFrame = 0; intFrame <= pMxDocument.Maps.Count - 1; intFrme++) {
        pMap = pMxDocument.Maps.Item(intFrame);
        for (intLayer = 0; intLayer <= pMap.LayerCount - 1; intLyer++) {
            if (object.ReferenceEquals(pMxDocument.SelectedLyer, pMap.Layer(intLayer))) {
                blnFrag = true;
                break; // TODO: might not be correct. Wa : Exit For
            }
        }
        if (blnFrag == true) {
            break; // TODO: might not be correct. Was : ExitFor
        }
        break; // TODO: might not be correct. Was : Exit For
    }
    //戻り値
    FrameIndex = intFrame;
    LayerIndex = intLayer;
}

Function SelectedLayerInformation(ByVal pMxDocument As IMxDocument, ByRef FrameIndex As Integer, ByRef LayerIndex As Integer)
    Dim intFrame As Integer
    Dim intLayer As Integer
    Dim blnFrag As Boolean
     
    Dim pMap As IMap
 
    '選択したレイヤのデータフレーム インデックス、レイヤ インデックスを取得
    For intFrame = 0 To pMxDocument.Maps.Count - 1
        Set pMap = pMxDocument.Maps.Item(intFrame)
        For intLayer = 0 To pMap.LayerCount - 1
            If pMxDocument.SelectedLayer Is pMap.Layer(intLayer) Then
                blnFrag = True
                Exit For
            End If
        Next intLayer
        If blnFrag = True Then
            Exit For
        End If
    Exit For
     
    '戻り値
    FrameIndex = intFrame
    LayerIndex = intLayer
     
End Function