こんばんは、魔界の仮面弁士様
③教えていただいたwebなど見てみました
まだAPIが良くわかっておらず

Private Declare Function GdipCreateBitmapFromFile Lib "gdiplus" (FileName As Any, bitmap As Long) As Long

  Dim pSrcBmp As Long, pDstBmp As Long

  Dim color As Long

' GpStatus WINGDIPAPI GdipBitmapGetPixel(GpBitmap* bitmap, INT x, INT y, ARGB *color) 

Private Declare Function GdipBitmapGetPixel Lib "gdiplus" (ByVal bitmap As LongPtr, ByVal x As Long, ByVal y As Long, ByRef color As Long) As Long



Sub MacroGDIP()



   GdipCreateBitmapFromFile "E:\hogehoge\TEST.png", pSrcBmp

   GdipBitmapGetPixel pSrcBmp, 200, 200, color

   

   MsgBox color

 

 End Sub

という感じかなぁ？と思いましたが、答えは0になってしまいました・・・
どの辺が間違っているのでしょうか？