Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim pengreen As New Drawing.Pen(Color.Green, 1)
 
        'Zeichnen der vertikalen Linie
        g.DrawLine(pengreen, 40, 20, 40, 120)
        bm = New Bitmap(PictureBox1.ClientRectangle.Width, _
          PictureBox1.ClientRectangle.Height)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist