Public Class Form1
Dim lowerBound As Double
Dim textBoxes(4) As TextBox
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.AppendText("sales")
textBoxes(1) = New TextBox()
With textBoxes(1)
.Top = 60
.Left = 17
.Height = 20
.Width = 104
.Visible = True
.ForeColor = Color.Black
.BackColor = Color.Transparent
.AcceptsReturn = False
End With
End Sub