2005 Express

線を描こうと思い、ネットで探し回りましたが

Dim g As Graphics = PictureBox1.CreateGraphics()
g.DrawLine(Pens.Black, 0, 0, 100, 100)
PictureBox1.Refresh()

と書いても線が書けません
どうすればよいのでしょうか？