Option Strict On '10/16_org Public Class Form1 '色の回転例 Private Sub Form1_Paint(ByVal sender As Object, ByVal 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