Before you draw the lines, add these two lines of code:

vb Code:
  1. Me.AutoRedraw = True

  2. Me.Show