809
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim pic As IPictureDisp
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Set Picture1.Picture = LoadPicture("C:\temp\1689.bmp")
Set pic = LoadPicture("C:\temp\1686.bmp")
Picture1.PaintPicture pic, 10, 10, , , , , , , vbSrcPaint
End Sub