VB picture box画太极图并填充颜色

Option?Explicit

Private?Declare?Function?ExtFloodFill?Lib?"gdi32"?(ByVal?hdc?As?Long,?_

ByVal?x?As?Long,?ByVal?y?As?Long,?ByVal?crColor?As?Long,?_

ByVal?wFillType?As?Long)?As?Long

Private?Sub?Command1_Click()

Picture1.Circle?(1000,?1000),?1000,?QBColor(0)

Picture1.Circle?(1000,?1500),?500,?QBColor(0),?1.5,?4.7

Picture1.Circle?(1000,?500),?500,?QBColor(0),?4.7,?1.5

Picture1.FillStyle?=?0

Picture1.FillColor?=?vbBlack

Picture1.Circle?(1000,?500),?200,?QBColor(0)

Picture1.FillColor?=?vbWhite

Picture1.Circle?(1000,?1500),?200,?QBColor(0)

Picture1.FillColor?=?vbWhite

ExtFloodFill?Picture1.hdc,?1000?/?15?-?50,?1000?/?15,?0,?0

Picture1.FillColor?=?vbBlack

ExtFloodFill?Picture1.hdc,?1000?/?15?+?50,?1000?/?15,?0,?0

Picture1.FillColor?=?Picture1.BackColor

End?Sub

Private?Sub?Command2_Click()

Picture1.Cls

End?Sub