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

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

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()
            '逃げるボタンを追加♪
            Dim btn As EscapingButton = New EscapingButton()
            frm.Controls.Add(btn)
        Next
        frm.BackColor = Color.Red
        Application.Run(frm)
    End Sub
End Class


Imports System.Drawing
Imports System.Windows.Forms

'逃走ボタン
Public Class EscapingButton
    Inherits Button

    Private rand As Random

    Sub New()
        rand = New Random()
        Me.Text = "私をクリックしないで！"
        Me.Width = Me.CreateGraphics().MeasureString(Me.Text &  _ 
                           "あ", Me.Font).ToSize().Width
    End Sub

    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MyBase.OnClick(e)
        'クリックされたら消える
        MessageBox.Show("ぐはあっ！やられた・・・")
        Me.Dispose()
    End Sub

    Protected Overrides Sub OnMouseHover(ByVal e As System.EventArgs)
        MyBase.OnMouseHover(e)

        'クリックされないように逃げる
        Dim x As Integer = rand.Next(0, Me.Width + 100)
        Dim y As Integer = rand.Next(0, Me.Height + 100)
        Me.Location = New Point(x, y)

        '画面上をはみ出た場合戻る
        If Not Me.Parent Is Nothing Then
            Dim flag As Boolean = False
            If x >= Me.Parent.Width Then
                x = rand.Next(0, Me.Parent.Width)
                flag = True
            End If
            If y >= Me.Parent.Height Then
                y = rand.Next(0, Me.Parent.Height)
                flag = True
            End If
            If flag = True Then
                Me.Location = New Point(x, y)
            End If
        End If

    End Sub

End Class