Tegning i PictureBox

Kære Eksperter.
   
Når jeg kører programmet tegnes ingen streg i Picture1.

Når jeg på Formen opretter en knap, som kalder SubRutinen: "Tegn", så kommer stregen i Picture1.

Hvorfor tegnes stregen ikke uden knap som i følgende PRG ?

Private Sub Form_Load()
  Tegn
End Sub

Public Sub Tegn()
  Picture1.Line (0, 0)-(200, 200)
End Sub