PictureBox上に描画した線を消さないようにするには？ (ID:89266)

名前

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

本文 こういうことなのかな。。。 Private Sub Form_Load() Picture1.Move 100, 0, 5000, 5000 Picture1.Line (0, 0)-(2000, 2000), , BF 'Boxを書く Picture1.AutoRedraw = True With VScroll1 .Move Picture1.Left + Picture1.Width, 100, 300, 5000 .Max = Picture1.Height .Min = 0 End With End Sub Private Sub VScroll1_Change() Picture1.Cls Picture1.Line (0, VScroll1.Value)-(2000, VScroll1.Value + 2000), , BF 'Boxを書く End Sub