無差別に技術をついばむ鳥

Imports System
Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms

Public Class PiyoForm
    Inherits Form 'Formを継承して新しいクラスを作る♪

    Sub New(ByVal count As Integer)
        Dim str As StringBuilder = New StringBuilder(count * 2)
        For i As Integer = 0 To count
            str.Append("ピヨ")
        Next
        Me.Text = str.ToString()
    End Sub

    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
        Invalidate()
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        '線画処理の準備
        Dim grfx As Graphics = e.Graphics
        Dim rang As RectangleF =  _ 
              New RectangleF(0, 0, ClientSize.Width, ClientSize.Height)

        '声を大にして言いたい
        Dim font As Font = _ 
              New Font(Me.Font.FontFamily, Me.Font.Size + 2, FontStyle.Bold)

        '思いっきりピヨと叫ぶ！
        grfx.DrawString(Me.Text, font, Brushes.Black, rang)
    End Sub

End Class

Public Class FormProgram
    Public Shared Sub Main()
        Dim frm As PiyoForm = Nothing
        For i As Integer = 0 To 100
            frm = New PiyoForm(i)  '作りやすい
            frm.Show()
        Next
        frm.BackColor = Color.Red
        Application.Run(frm)
    End Sub
End Class