等間隔で線をかいたのに、間隔が等しくならない (ID:87225)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ピクチャーボックス(pctBar) に以下のようなコードで直線を書こうとしました。 等間隔で、線をひくはずなのに実行してみると どうみても不均等な線がひけてしまっています。 特に間隔の値を太さに近づけたときに不均衡さが 顕著になるようです。 この現象が生じる理由、回避する手段をおわかりの方が いらっしゃいましたらご教授お願いします。 よろしくお願いします。 Private Sub cmdDraw_Click() Dim i, 間隔, 太さ, 最大値 As Integer 間隔 = 20 太さ = 15 最大値 = 1000 / 間隔 pctBar.ScaleWidth = 1000 pctBar.ScaleHeight = 1000 pctBar.Cls For i = 1 To 最大値 pctBar.Line (間隔 * i, 100)-(間隔 * i + 太さ, 900), , BF Next End Sub