夜分、早朝にありがとうございます。遅くなりましてごめんなさい。

'https://teratail.com/questions/111853さんを参考に画像を取れましたが、
ここに画像が貼れなかったので、言葉にします。

'http://www.vbforums.com/showthread.php?763319-Drawing-shapes-on-ink-pictureさんを参考に
inkpikture1に〇、inkpikture2に□、inkpikture3に△を表示させてみました。
〇は〇で表示されずに栗みたいなとっかりぼうやみたいになりました。

その後で、inkpikture1にコピペして、３ストローク書き込めるのか実験してみました。
でも〇？△？も変な形になったので、（これが「描画結果はこうなりますね」の画像です）

FitToCurveを教えていただいたので、直線、曲線の設定はこれじゃないかと思いましたが、
FitToCurveがｔｒｕｅの時のデータ仕様がわかりません。
ｂｅｓｉｅｒ曲線とかいうものでしょうか？二次？三次？
ｘ１、ｙ１、ｘ２、ｙ２、ｐ１ｘ、ｐ１ｙ、ｐ２ｘ、ｐ２ｙ～ｐｘｘ、ｐｘｙでしょうか？
それともｐは固定個数ですか？
手で入力したストロークをデータに取り出せたら、理解ができるかもしれませんが、
やりかたがわかりません。御教授願えますでしょうか？

分からない事だらけで、
Private Sub CommandButton24_Click()
    InkPicture1.AutoRedraw = False
    InkPicture1.Ink.DeleteStrokes  '←クリア処理（元コードには無かったもの）    InkPicture1.Ink.CreateStrokes().Add InkPicture1.Ink.CreateStroke(greenPoints, Null)
    
    Dim myStroke As Object
    For Each myStroke In InkPicture1.Ink.Strokes
    myStroke.DrawingAttributes.Color = RGB(0, 255, 0)
    Next
    
    stc = InkPicture1.Ink.Strokes.Count
    
    InkPicture1.Ink.CreateStrokes().Add InkPicture1.Ink.CreateStroke(bluePoints, Null)
    Dim myStroke2 As Object
    Dim st As Long
    For Each myStroke2 In InkPicture1.Ink.Strokes
    If st >= stc Then
    myStroke2.DrawingAttributes.Color = RGB(0, 0, 255)
    Else
    st = st + 1
    End If
    Next
     
    stc = InkPicture1.Ink.Strokes.Count
    
    With InkPicture1.Ink.CreateStrokes()
        .Add InkPicture1.Ink.CreateStroke(brownPoints, Null)
        Dim DrawingAttributes As InkDrawingAttributes
        Set DrawingAttributes = InkPicture1.DefaultDrawingAttributes.Clone()
        DrawingAttributes.FitToCurve = True
        .ModifyDrawingAttributes DrawingAttributes
    End With
    
    Dim myStroke3 As Object
    Dim st2 As Long
    For Each myStroke3 In InkPicture1.Ink.Strokes
    If st2 >= stc Then
    myStroke3.DrawingAttributes.Color = RGB(255, 0, 0)
    Else
    st2 = st2 + 1
    End If
    Next

    InkPicture1.AutoRedraw = True
End Sub

'https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1238549967さんを参考に
筆順を色付けしてみました。
ｗｉｔｈでやってみたかったのですが、できませんでした。
何かやり方が、ございますでしょうか？

お手数かけますが、よろしくお願いします