https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=26969#CommentId70696
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2016/1/22 15:13:22
> Dim WM_SYSCOMMAND As New IntPtr(&H112)

型が違っていました。

Dim WM_SYSCOMMAND As UInteger = &H112UI
0