Как реализовать обводку или тень для текста

        Dim BM2 = New Bitmap(PictureBox1.ClientRectangle.Width, PictureBox1.ClientRectangle.Height)
        Dim G As Graphics = Graphics.FromImage(BM2)
        G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        G.SmoothingMode = SmoothingMode.AntiAlias
        Dim S As String = IO.File.ReadAllText("C:\1.txt", System.Text.Encoding.Default)
        Dim Fnt As New FontFamily("Tahoma")
        Dim FStyle As Integer = CInt(FontStyle.Bold)
        Dim Sz As Integer = 23
        Dim Origin As New Rectangle(0, 0, BM2.Width, BM2.Height)
        G.DrawString(S, New Font(Fnt.Name, Sz, FontStyle.Bold, GraphicsUnit.Pixel), Brushes.Blue, Origin)
        Dim Pth As New GraphicsPath
        Dim frmt As StringFormat = StringFormat.GenericDefault
        Pth.AddString(S, Fnt, FStyle, Sz, Origin, frmt)
        G.DrawPath(New Pen(Color.White, 1.6), Pth)
        PictureBox1.BackgroundImage = BM2