用shapefillforecolor和backcol？

用

API函數(shù)

GetPixel先給個聲明：Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long獲取 (x,y) 的顏色（hdc是句柄）注意，目標控件的ScaleMode要為3（單位是Pixel(像素)）寫文件的事你自己辦吧………