Подскажите, каким образом закрасить определенным цветом внутри окружности?

Fillstyle=0
fillcolor=vbred

Private Declare Function SaveDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function RestoreDC Lib "gdi32" (ByVal hdc As Long, ByVal nSavedDC As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
 
Private Sub Command1_Click()
        Me.Picture1.Circle (150, 150), 60, RGB(0, 255, 0)
        svHdc& = SaveDC(Me.Picture1.hdc)
        pbrush& = CreateSolidBrush(RGB(255, 0, 0))
        ar1& = SelectObject(Me.Picture1.hdc, pbrush&)
        ar4& = FloodFill(Me.Picture1.hdc, 150&, 150&, RGB(0, 255, 0))
        Me.Picture1.Refresh
        ar3& = RestoreDC(Me.Picture1.hdc, svHdc&)
        ar2& = DeleteObject(pbrush&)
End Sub
 
Private Sub Command2_Click()
        Unload Me
End Sub

    Dim i As Integer
    i = InputBox("I = ", "", 22)
    MsgBox "551" + i