GeneratePicture 子程序示例

Dim aPicInfo As PictureInfo

aPicInfo.lfTopPct = TopPct

aPicInfo.lfLeftPct = LeftPct

aPicInfo.lfHeightPct = 100

aPicInfo.lfWidthPct = 100

aPicInfo.lBkColor = RGB(255,0,0)

aPicInfo.szName = "Tank1"

aPicInfo.bPixels = True

aPicInfo.bTitlebar = True

aPicInfo.bSystemMenu = True

aPicInfo.bResizable = True

aPicInfo.bAlwaysOnTop = False

aPicInfo.bRuntimeVisible = True

Dim retVal

retVal = GeneratePicture(aPicInfo)