Dim bdic As New Dictionary(Of String, Button)
bdic.Add("MyFirstButton", New Button With {.Text = "MyFirstButton"})
 
bdic("MyFirstButton").BackColor = Color.Azure
bdic("MyFirstButton").Location = New Point(20, 20)
bdic("MyFirstButton").Parent = Me