منبع:https://barnamenevis.org/showpo...1&postcount=10

Public Sub Draw2File()



        Dim bmp As Bitmap = New Bitmap(500, 400)

        Dim gr As Graphics = Graphics.FromImage(bmp)

        Dim rect As Rectangle = New Rectangle(20, 20, 450, 350)

        gr.DrawRectangle(Pens.Red, rect)

        gr.FillRectangle(Brushes.Pink, rect)

        gr.DrawString("Salam", New Font("Arial", 10), Brushes.Red, 50, 50)

        gr.DrawArc(Pens.Red, 30, 30, 60, 60, 0, 180)

        gr.DrawEllipse(New Pen(Color.Yellow, 3), New Rectangle(200, 100, 200, 200))

        bmp.Save("C:\1.bmp")

        bmp.Dispose()

        gr.Dispose()

    End Sub