投稿者 snowmansnow  (社会人) 投稿日時 2020/4/2 15:33:33
仮面弁士さんこんにちは
昔から名前は存じ上げていましたが、まさかお話できるとは、嬉しいです。
るきおさんにも感謝しております。

また初歩的なものですが、

'https://wutils.com/com-dll/constants/constants-MSINKAUTLib.htm と
'https://docs.microsoft.com/en-us/windows/win32/tablet/application-gestures-and-semantic-behavior

 を参考に

Private Sub CommandButton2_Click()
           InkPicture1.CollectionMode = ICM_GestureOnly

           InkPicture1.SetGestureStatus IAG_Scratchout, True
           InkPicture1.SetGestureStatus IAG_Triangle, True
               ~
           InkPicture1.SetGestureStatus IAG_Exclamation, True
           InkPicture1.SetGestureStatus IAG_Tap, True
           InkPicture1.SetGestureStatus IAG_DoubleTap, True
    と全部列挙して①
          
            If geid = IAG_Circle Then
             MsgBox "maru"
            Else
             If geid = LeftDown Then
              MsgBox "ldown"
             Else
             End If
            End If
End Sub

    ②debug.printのところを
     パブリックの変数geidに代入に変更して、

     一回このボタンを押したら、その後は、
     msgboxでid表示にしても随時動くみたいなのですが、
 
     一番最初のinkがジェスチャーでなくインクになって画面に残っちゃいます。
     一回もボタンを押さないで、
        ICM_GestureOnly状態で
        SetGestureStatusも設定できないでしょうか?※1

    ③識別用に生成したGuid値は、教えて頂いた関数にしています。
    ④declareは、一番上に持って行きました。 

      ※1の解決がございましたら、教えていただきたいです。