Public Class Form1

    Dim Buttons As New Dictionary(Of String, Button)
    Dim operand1 As Integer
    Dim operand2 As Integer
    Dim op As String
    Dim ClearDisplay As Boolean
    Dim iscreated(10) As Boolean

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim i As Integer
        For i = 0 To 9
            Dim B As New Button
            Me.Controls.Add(B)
            B.Width = 50
            B.Height = 50
            B.Text = i
            Buttons.Add(B.Text, B)
            B.Tag = i
            AddHandler B.Click, AddressOf Button_Click
        Next

    End Sub

    Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click

        Display.Text = ""

    End Sub

    Private Sub plus_Click(sender As Object, e As EventArgs) Handles plus.Click

        operand1 = Display.Text
        op = "+"
        Display.Text = ""


    End Sub

    Private Sub minus_Click(sender As Object, e As EventArgs) Handles minus.Click

        operand1 = Display.Text
        op = "-"
        Display.Text = ""

    End Sub

    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)

        Dim B As Button = sender
        B.BackColor = Color.Blue
        iscreated(B.Tag) = True
        MessageBox.Show(B.Text)
        Display.Text = Display.Text + (B.Text)


    End Sub

End Class