こんばんは、
２回目のエラーが頻発し、頭がこんがらがってましたが、
ｉｄが変わっても、カウントは変わらなかったので、頭を切り替えて、下記に変更してみたら動きました。

今回は、同じstroke群の中で色で、文字とグラフィックを区別してるのですが、
何か、MSINKAUTLib.inkrendererの中のdrawstrokeとかが、グラフィックなのかなぁ？と思ってます。
（cifies the strokes to draw using the given Graphics object or device context.）と書いていて、
デバイスコンテキスト？Graphic g　とかの事かな？とか思ってまして、
簡単なヒントというかアドバイス（違うよとか、それだよとか）頂けたら、また頑張れる気がします。
よろしくお願いします。

再修正版
Private Sub CommandButton37_Click()
 
    For ind = InkPicture2.ink.strokes.Count - 1 To 0 Step -1
    If InkPicture2.ink.strokes.Item(ind).Deleted = False Then
 '   MsgBox "id-" & ind & "-" & InkPicture2.ink.strokes.Item(ind).DrawingAttributes.Color
  
    If InkPicture2.ink.strokes.Item(ind).DrawingAttributes.Color <> 0 Then
    
   InkPicture2.ink.DeleteStroke InkPicture2.ink.strokes.Item(ind)
    
    Else
    End If
    Else
    End If
 Next
    InkPicture2.AutoRedraw = True

'インクを足す事はできる・・・
'Dim strokes As MSINKAUTLib.InkStrokes
'Set combinedInk = InkPicture2.ink
'Set strokes = InkPicture3.ink.strokes
'iret = combinedInk.AddStrokesAtRectangle(strokes, strokes.GetBoundingBox())
'Set strokes = InkPicture4.ink.strokes
'iret = combinedInk.AddStrokesAtRectangle(strokes, strokes.GetBoundingBox())
'https://microsoft.public.windows.tabletpc.developer.narkive.com/xeodljDK/rendering-ink-from-multiple-inkpictures-in-the-same-form

End Sub