動的に線を引くには

かずまさ 2004-02-18 20:35:21 No: 82106

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

punto 2004-02-19 00:59:55 No: 82107

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