Public Shared Function GetGraphicsObject() As Graphics
        Dim bmp As Bitmap
        bmp = New Bitmap(900, 400)
        Dim G As Graphics
        PictureBox1.Image = bmp
        G = Graphics.FromImage(bmp)
        Return G
    End Function