Option Explicit
'作者:夏*()
Dim Ipic(4) As IPictureDisp, XIA As XForm, Px As Long, Py As Long
Private Sub Form_Load()
Set Ipic(0) = LoadPicture(App.Path & "MWOMWO_Nor.bmp")
Set Ipic(1) = LoadPicture(App.Path & "MWOMWO_Ovr.jpg")
Set Ipic(2) = LoadPicture(App.Path & "MWOMWO_Dwn.jpg")
Set Ipic(3) = LoadPicture(App.Path & "MWOMWO_Gry.jpg")
Set Ipic(4) = LoadPicture(App.Path & "MWOAny.bmp")
With XIA
.hWnd = XFM.hWnd
.UseMainMask = True
.MainMaskColor = RGB(255, 0, 255)
.CoordinateM