投稿者 ぽく  (小学生) 投稿日時 2008/10/17 10:18:16
だーから特殊コード使えっつの。
学習能力の無いハゲだな。

Option Strict On
'10/16_org 
Public Class Form1
    '色の回転例 
    Private Sub Form1_Paint(ByVal sender As ObjectByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim i As Integer = &H78FF0000
        Dim ii As Integer
        For ii = 0 To 10
            Dim Brush As New SolidBrush(Color.FromArgb(i + ii * 10))
            e.Graphics.FillEllipse(Brush, 100 + ii * 10, 100, 200, 200)
        Next
        i = &H7800FF00
        For ii = 0 To 25
            Dim Line As New Pen(Color.FromArgb(i + ii * 10))
            e.Graphics.DrawLine(Line, 100, 320 + ii * 5, 300, 320 + ii * 5)
        Next
        Dim line1 As New Pen(Color.FromArgb(78, 255, 0, 0))
        e.Graphics.DrawLine(line1, 100, 500, 300, 500)
    End Sub
End Class 

ついでに一つ技術提供してやる。
URL貼ったってどうせニセ(笑)とか言って見ねぇだろうからキーワードだけ教えてやるよ。
アンマネージリソースの解放
Dispose
Using