いつもお世話になっております
イベントハンドラーの追加について質問です。

 Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint
        '縦線
        Dim i As Integer = TrackBar1.Value
        Do While i < 600
            e.Graphics.DrawLine(Pens.Gray, i, 0, i, 400)
            i = i + 60
        Loop
        '横線
        Dim ii As Integer = TrackBar1.Value
        Do While ii < 400
            e.Graphics.DrawLine(Pens.Gray, 0, ii, 600, ii)
            ii = ii + 40
        Loop
 End Sub

この線を書くコードを TrackBar1.Scrollしたときに呼び出したいです。
わたしは  AddHandler TrackBar1.ValueChanged, AddressOf PictureBox1_Paint
と書いたらエラーがでてきてしまいました。

こういうときはどうしたらよいのでしょうか？
宜しくお願いいたします。