Public Class Form1
    Dim g As Graphics = Me.CreateGraphics
    Dim greyLine(14) As Color
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim pengrey As New Pen(greyLine(1), 2)
        With g
            .DrawRectangle(pengrey, 50, 50, 150, 150)
            .SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        End With
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        'Grafikfunktionen - Farben zuweisen
        greyLine(1) = Color.FromArgb(15, 203, 203, 203)
 
    End Sub
End Class