求老师VB改VF,该如何处理

求老师VB改VF
请教各位老师，以下语句怎样改成vfp的格式：
之一：
With TChart1
    .Tools.Add tcDragMarks
    With .Tools.Items(0)s
        .Active = True
        .asDragMark.Series = 0
    End With
End With
之二：
Dim i
  With TChart1.Tools
    For i = 0 To .Count - 1
      Select Case .Items(i).ToolType
       Case tcMarksTip: .Items(i).asMarksTip.Style = smsLabelPercent
       Case tcColorband: .Items(i).asColorband.Brush.Style = bsBDiagonal
      End Select
    Next i
  End With
谢谢！

[解决办法]
for next改成for endfor
好久没用vf了，其它的记不太清楚了，好像每差别
[解决办法]
首先，你的VFP要有TChart。

TChart1.Tools.Add tcDragMarks
TChart1.Tools.Items(0).Active = True
TChart1.Tools.Items(0).asDragMark.Series = 0


FOR i = 0 TO TChart1.Tools.Count - 1
    DOCASE 
       CASE TChart1.Tools.Items(i).ToolType = tcMarksTip
           TChart1.Tools.Items(i).asMarksTip.Style = smsLabelPercent
       Case TChart1.Tools.Items(i).ToolType = tcColorband
           TChart1.Tools.Items(i).asColorband.Brush.Style = bsBDiagonal
    ENDCASE
ENDFOR