can we check your code?

hai john..

Private Sub fmload()
        ' Create a obejct of InstalledFontCollection
        Dim InstalledFonts As New InstalledFontCollection
        ' Gets the array of FontFamily objects associated with this FontCollection.
        Dim fontfamilies() As FontFamily = InstalledFonts.Families()
        For Each fontFamily As FontFamily In fontfamilies
            ComboBox1.Items.Add(fontFamily.Name)
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'PictureBox1.Image = DrawText("Fun day")
        'PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        'PictureBox1.Image = DrawText("Fun day")
        Dim scale_factor As Single = Single.Parse(cmbdest.Text)
        ' Get the source bitmap.
        Dim bm_source As New Bitmap(Size.Width, Size.Height, Drawing.Imaging.PixelFormat.Format24bppRgb)
        ' Make a bitmap for the result.
        Dim bm_dest As New Bitmap( _
         CInt(bm_source.Width * scale_factor), _
         CInt(bm_source.Height * scale_factor))
        'Make a Graphics object for the result Bitmap.
        Dim gr_dest As Graphics = Graphics.FromImage(bm_source)
    End Sub
    Private Function DrawText(ByVal Text As String) As Bitmap
        Dim TextBitmap As New Bitmap(Text)
        Dim Brush As New SolidBrush(Color.Black)
        Dim SelectedFont = New Font(FontFamily.GenericSansSerif, 50)
        Using Graphic = Graphics.FromImage(TextBitmap)
            Graphic.DrawString(Text, SelectedFont, Brushes.Black, 0, 0)
        End Using
        Return TextBitmap
    End Function
Private Sub img(ByVal route As String, ByVal font As String, ByVal fnsize As Integer, ByVal x As Integer, ByVal y As Integer)
        PictureBox1.Image = Nothing
        Dim g2 As System.Drawing.Graphics
        Dim img As New Bitmap(Size.Width, Size.Height, Drawing.Imaging.PixelFormat.Format24bppRgb)
        g2 = Graphics.FromImage(img)
        g2.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g2.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        g2.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        Try
            g2.DrawString(route, New Font(font, fnsize), Brushes.White, x, y)
        Catch ex As Exception
            MessageBox.Show("this font not supported try another font")
        End Try
        PictureBox1.SizeMode = PictureBoxSizeMode.Normal
        PictureBox1.Image = img
    End Sub