怎么用vb做出不同色的同心圆？

Private Sub Form_Paint()
Cls
For i = 0 To 15
Circle (ScaleWidth / 2, ScaleHeight / 2), IIf(ScaleWidth > ScaleHeight, ScaleHeight, ScaleWidth) * i / 32, QBColor(i)
Next
End Sub

Private Sub Form_Resize()
Form_Paint
End Sub

VB是什么软件啊？
我没用过哦
我只知道用CorelDRW和Photoshop等软件怎么做。