五指山游戏机漏洞:谁能帮我把这段vb改成c#啊？谢了先

Private Sub SelectFeatures()
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pFeature As IFeature
Dim pFeatureCursor As IFeatureCursor
Dim pQueryFilter As IqueryFilter
On Error GoTo ErrorHandler:
Set pMxDocument = ThisDocument
Set pMap = pMxDocument.FocusMap
If (pMap.LayerCount = 0) Then
MsgBox ("缺少数据")
Exit Sub
End If
Set pFeatureLayer = pMap.Layer(0)
Set pFeatureClass = pFeatureLayer.FeatureClass
Set pQueryFilter = New QueryFilter
pQueryFilter.WhereClause = "FID < 2"
Set pFeatureCursor = pFeatureClass.Search(pQueryFilter, False)
Set pFeature = pFeatureCursor.NextFeature
Do While Not pFeature Is Nothing
'More Operations
Set pFeature = pFeatureCursor.NextFeature
Loop
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub
Private Sub UIButtonControl1_Click()
On Error GoTo ErrorHandler:
SelectFeatures
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub