>>662
Private Sub Form_Load()
Picture1.AutoRedraw = True
　　Picture1.Circle (400, 400), 400
End Sub