Creating and Using Objects

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As IntPtr) As IntPtr
    Dim b As Button
    Dim i As Integer = 0

    Private Sub mousedownButton(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyClass.MouseDown
        Try
            b = sender
        Catch ex As Exception
            b = Nothing
        End Try
    End Sub

    Private Sub mouseupButton(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyClass.MouseUp
        b = Nothing
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i += 1
        Dim b As New Button
        b.Location = New Point(15, 15)
        b.Text = "Button" & i
        Me.Controls.Add(b)
        AddHandler b.MouseDown, AddressOf Me.mousedownButton
        AddHandler b.MouseUp, AddressOf Me.mouseupButton
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim p As Point = Me.PointToClient(Me.MousePosition)
            b.Location = New Point(p.X, p.Y)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim delete As Boolean = False

        delete = GetAsyncKeyState(Keys.Delete)
        If delete = True Then
            Me.Controls.Remove(b)
        Else

        End If
    End Sub
End Class