Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim s As String = "Schrift mit gelbem Rand"
        Using f As New Font("Arial", 24)
            e.Graphics.TextRenderingHint = _
              Drawing.Text.TextRenderingHint.AntiAlias
            e.Graphics.DrawString(s, f, Brushes.Yellow, 20, 20)
            e.Graphics.DrawString(s, f, Brushes.Yellow, 22, 20)
            e.Graphics.DrawString(s, f, Brushes.Yellow, 20, 22)
            e.Graphics.DrawString(s, f, Brushes.Yellow, 22, 22)
            e.Graphics.DrawString(s, f, Brushes.Red, 21, 21)
        End Using
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(100, 100, 410, 120)
        Me.BackColor = Color.Black
    End Sub
End Class