コピーすれば、数十万個のサンプルを自由に貼り付けれます。
例えば、オンラインhelpで"円"を検索します。
事務的な円グラフ作成とかに役にたちますよね。
円だけでも、数100以上のサンプルが見れます。
使いたいコードはコピーしてBASICに貼り付けるだけです。
例
こんな感じのサンプルとか。
Option Strict On
Public Class Form1
    'スイカ
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim blackPen As New Pen(Color.Black, 3)

        ' Create coordinates of rectangle to bound ellipse.
        Dim x As Single = 0.0F
        Dim y As Single = 0.0F
        Dim width As Single = 100.0F
        Dim height As Single = 100.0F

        ' Create start and sweep angles on ellipse.
        Dim startAngle As Single = 0.0F
        Dim sweepAngle As Single = 180.0F

        ' Draw arc to screen.
        e.Graphics.DrawArc(blackPen, x, y, width, height, startAngle, _
        sweepAngle)
        e.Graphics.DrawLine(Pens.Black, 0, 50, 100, 50)
    End Sub
End Class