'未テスト 

Dim filename As String

Using dialog As New SaveFileDialog

    If dialog.ShowDialog() <> DialogResult.OK Then Return

    filename = dialog.FileName.

End Using



Dim bmp As Bitmap(幅, 高さ)

Dim g As Graphics = Graphics.FromImage(bmp)



描画



bmp.Save(filename)