Public Class Form1
    Dim pos As Int32 = 50
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.BackColor = Color.Black
        PictureBox1.Size = New Size(200, 220)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        pos += 1
        PictureBox1.Refresh()
    End Sub
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        ' e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality  
        ' 'Antialiasing einschalten
        e.Graphics.DrawLine(New Pen(Color.Yellow, 3), pos, 10, pos + 30, 200)
    End Sub
End Class