フォームにピクチャボックス1つ（picCanvas）とコマンドボタン1つを配
置しています。コマンドボタンをクリックしたらピクチャボックスを青
色とピクチャボックスのBackColorのグレーの2色で横ジマ模様を表示さ
せたいんですがうまくいきません。ピクチャボックスのHeightは2415で
Widthは3255です。
途中まで作った下記のコードだとボタンをクリックするとフォームが横
ジマ模様になってしまいます。また、Lineコードを何度も記述していま
すがこれを何度も書かないようにもしたいんですが、イマイチわかりま
せん。教えてください。よろしくお願いします。

Private Sub Command1_Click()
    picCanvas.Cls
    picCanvas.Scale (0, 0)-(2415, 3255)
    
    DrawWidth = 25
    
    Line (0, 300)-(ScaleWidth, 300), vbPaleBlue
    
    Line (0, 1000)-(ScaleWidth, 1000), vbPaleBlue
    
    Line (0, 1700)-(ScaleWidth, 1700), vbPaleBlue
    
    Line (0, 2400)-(ScaleWidth, 2400), vbPaleBlue
    
End Sub

自己解決できました。どうもひどい勘違いをしていたようです。

こうゆう事で良いですか？

Dim i As Integer
For i = 300 To 2400 Step 700
    picCanvas.Line (0, i)-(ScaleWidth, i), QBColor(1)
Next i

Edwardさん、回答ありがとうございます。
すっきりしていて見やすいです。
ありがとうございました。

>     picCanvas.Line (0, i)-(ScaleWidth, i), QBColor(1)

PictureBox に描画しているのだから、下記でないと。
(object 名は省略しない方が）
picCanvas.Line (0, i)-(picCanvas.ScaleWidth, i), QBColor(1)

ハンドルネームは統一するようにして下さい。まして関連性のある質問を
しているのですから。

以後、注意します。