大変ありがとうございます

Sub UserForm_Initialize()

 InkPicture1.CollectionMode = ICM_GestureOnly
  InkPicture2.CollectionMode = ICM_InkOnly
  InkPicture3.CollectionMode = ICM_InkOnly
  
         
 InkPicture1.SetGestureStatus IAG_AllGestures, True
 

End Sub

Private Sub InkPicture1_Gesture(ByVal Cursor As MSINKAUTLib.IInkCursor, ByVal Strokes As MSINKAUTLib.IInkStrokes, ByVal Gestures As Variant, Cancel As Boolean)
    geid = Gestures(0).id　※
    Debug.Print Gestures(0).id
    MsgBox Gestures(0).id　※
    
    If Gestures(0).id <> MSINKAUTLib.InkApplicationGesture.IAG_NoGesture Then
        Dim newGuid As String
        newGuid = CreateGuid
        Strokes(0).ExtendedProperties.Add newGuid, Gestures(0).id
        Cancel = True
    End If

    InkPicture1.Ink.DeleteStrokes　※
   InkPicture1.InkEnabled = True　※
    
End Sub
にしてみましたら 思った動きになりました。実装は、後でやってみます！

いただいたsaveは、ファイル名が無かったので、どうＳＡＶＥされるのかよくわかりませんでした。
どこかにＳＡＶＥ順に積み重ねて保存される（ＰＵＳＨ？みたいな保存）のでしょうか？
このタイプのＬＯＡＤも、まったく思いつきませんでした。
ＢＹＴＥの、ＰＵＴでＳＡＶＥ、ＧＥＴでＬＯＡＤは、事前に出来るようになりました。

大変お世話になり、有難かったです。
何度も親切に大変ありがとうございました。

別件で質問があり、またよろしくお願いしたいです。