Private Sub Form_Paint()
    Dim r As String, initR As String
    Dim x As String, y As String
    Dim qbc As Integer
    Cls
    x = ScaleWidth / 2: y = ScaleHeight / 2
    If x > y Then initR = y Else initR = x
      FillStyle = vbFSSolid
    For r = initR To 1 Step -(initR / 16)
      FillColor = QBColor(qbc)
      qbc = qbc + 1
      Circle (x, y), r
    Next
    FillStyle = vbFSTransparent
End Sub

运行后，为什么出现“r”的类型不匹配？
唉，刚开始学VB，碰到的问题真多，还请各位高人指点。

[[it] 本帖最后由 developing 于 2008-7-10 22:38 编辑 [/it]]