Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint ' Dim g As Graphics = e.Graphics ' g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias ' b.hyouji(g, 150, 150) End Sub