vb.net用picPictureBox在图片上写字并保存

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bitmap As Bitmap = bitmap.FromFile("f:\1.jpg")
        Dim g As Graphics = Graphics.FromImage(bitmap)
        g.DrawString("I am a Boy", Me.Font, Brushes.Black, 0, 0)
        bitmap.Save("f:\2.jpg")
        Me.PictureBox1.Image = bitmap
    End Sub