[VB.net] Salvare immagine nel file

[jabjoint]

Ciao a tutti
Io creo con la graphics un immagine e la visualizzo in una picturebox, poi la salvo in un file usando il seguente codice, però nel file salvato non ottengo la figura creata ma tutto nero:

dim g as graphics
g = pic.CreateGraphics()
g.FillEllipse(col1, New Rectangle(c1.X, c1.Y, x, y))


pic.Image = New Bitmap(400, 400, g)
pic.Image.Save("C:\Users\amministratore\Desktop\pic.bmp")

Come posso salvare il disegno creato?