This should get you there.... Private Sub IdentifyTask_ExecuteCompleted(ByVal sender As Object, ByVal args As IdentifyEventArgs)
Dim drawGraphicslayer As GraphicsLayer = TryCast(MyMap.Layers("drawGraphicsLayer"), GraphicsLayer)
drawGraphicslayer.ClearGraphics()
BusyIndicator.IsBusy = False
If args.IdentifyResults.Count = 0 Then
MessageBox.Show("Nothing was found." & vbCr & "Please zoom in closer and try again.", "Nothing Found", MessageBoxButton.OK)
Else
MessageBox.Show("objectID = " & args.IdentifyResults(0).Feature.Attributes("ObjectID"), "ObjectID", MessageBoxButton.OK))
End If
End Sub
brian