1,485
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Dim c As Long
c = RGB(200, 255, 200)
c = c Xor &HFFFFFF
Picture1.FillStyle = 0
Picture1.FillColor = c
Picture1.Circle (120, 120), 80
c = RGB(255, 255, 100)
c = c Xor &HFFFFFF
Picture1.FillColor = c
Picture1.Circle (140, 140), 80
End Sub
Private Sub Form_Load()
With Picture1
.AutoRedraw = True
.ScaleMode = vbPixels
.DrawMode = 7
End With
End Sub