CreateGraphics で作成したオブジェクトに描画したものは一過性のもので、何かあると消えてしまいます。
継続して描画するには Paint イベントで行ってください。

 Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

    e.Graphics.DrawLine(New Pen(Color.Red, 2), 10, 120, 50, 220)

End Sub