•Dim
lblDept(5)
As
Label
•Dim
txtDept(5)
As
TextBox
•Private
Sub Form1_Load(...) Handles MyBase.Load
• Dim depNum As
Integer
• lblDept(1) = Label1
• lblDept(2) = Label2
• lblDept(3) = Label3
• lblDept(4) = Label4
• lblDept(5) = Label5
• txtDept(1) = TextBox1
• txtDept(2) = TextBox2
• txtDept(3) = TextBox3
• txtDept(4) = TextBox4
• txtDept(5) = TextBox5