動的に線を引くには

---

タイトルのとおりなのですが、
フォームに項目の数だけ動的に横線を引きたいと思っているのですが、
やり方がわかりません。
項目は項目数分ループさせてだしているので、
その時にいっしょに引きたいと思っているのですが。
ご存知の方がいらっしゃいましたら教えてください。

編集    削除

---

Dim fGap    As Single
    Dim i       As Integer

    Me.AutoRedraw = True
    Me.CurrentX = 0: Me.CurrentX = 0
    fGap = Me.ScaleHeight / 10
    For i = 1 To 9
        Me.Line Step(0, fGap)-Step(Me.ScaleWidth, 0)
        Me.CurrentX = 0
    Next i
    Me.Refresh

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。