VS 2010 Shorten code

---

'Load settings
dtb1.Text = My.Settings.dtb1
dtb2.Text = My.Settings.dtb2
dtb3.Text = My.Settings.dtb3
dtb4.Text = My.Settings.dtb4
dtb5.Text = My.Settings.dtb5
dtb6.Text = My.Settings.dtb6
dtb7.Text = My.Settings.dtb7
dtb8.Text = My.Settings.dtb8
dtb9.Text = My.Settings.dtb9
dtb10.Text = My.Settings.dtb10
dtb11.Text = My.Settings.dtb11
dtb12.Text = My.Settings.dtb12
dtb13.Text = My.Settings.dtb13
dtb14.Text = My.Settings.dtb14
dtb15.Text = My.Settings.dtb15
dtb16.Text = My.Settings.dtb16
dtb17.Text = My.Settings.dtb17
dtb18.Text = My.Settings.dtb18
dtb19.Text = My.Settings.dtb19
dtb20.Text = My.Settings.dtb20
dtb21.Text = My.Settings.dtb21
dtb22.Text = My.Settings.dtb22
dtb23.Text = My.Settings.dtb23

---

---

'Save the contents of the textbox on closing
My.Settings.dtb1 = dtb1.Text
My.Settings.dtb2 = dtb2.Text
My.Settings.dtb3 = dtb3.Text
My.Settings.dtb4 = dtb4.Text
My.Settings.dtb5 = dtb5.Text
My.Settings.dtb6 = dtb6.Text
My.Settings.dtb7 = dtb7.Text
My.Settings.dtb8 = dtb8.Text
My.Settings.dtb9 = dtb9.Text
My.Settings.dtb10 = dtb10.Text
My.Settings.dtb11 = dtb11.Text
My.Settings.dtb12 = dtb12.Text
My.Settings.dtb13 = dtb13.Text
My.Settings.dtb14 = dtb14.Text
My.Settings.dtb15 = dtb15.Text
My.Settings.dtb16 = dtb16.Text
My.Settings.dtb17 = dtb17.Text
My.Settings.dtb18 = dtb18.Text
My.Settings.dtb19 = dtb19.Text
My.Settings.dtb20 = dtb20.Text
My.Settings.dtb21 = dtb21.Text
My.Settings.dtb22 = dtb22.Text
My.Settings.dtb23 = dtb23.Text

---