Visual Studio2019 VBpicturebox画图的编程应该是什么样的？

如图，PictureBox的命名为Picture1，可否示范一下写法？

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics()
        g.DrawLine(Pens.Black, 1, 1, PictureBox1.Width, PictureBox1.Height) '画黑色的对角线
        g.DrawEllipse(Pens.Red, 30, 30, 90, 90) '在坐标为30,30 ~90,90 的范围内画一个红圆
        g.DrawString("Q759393", Me.Font, Brushes.Black, 150, 150) '写字
    End Sub
End Class