こうゆう事で良いですか?Dim i As IntegerFor i = 300 To 2400 Step 700 picCanvas.Line (0, i)-(ScaleWidth, i), QBColor(1)Next i