Изменение даты текстбокса по спину - VB

Формулировка задачи:

Уважаемые знатоки,
Есть текстбокс с сегодняшней датой, рядом спинбаттон.
Нужно, чтобы по нажатю на спин менялась дата текстбокса на +/-1 день.
Проблема номер два:
Как запретить ручной ввод данных в текстбокс.
Заранее благодарю.

Решение задачи: «Изменение даты текстбокса по спину»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> SpinButton1_SpinDown()
<font color="blue">Dim</font> x <font color="blue">As</font> <font color="blue">Date</font>
x = CDate(<font color="blue">Me</font>.DateBox_start.Value)
x = x - <font color="darkblue"><b>1</b></font>
<font color="blue">Me</font>.DateBox_start.Locked = False
<font color="blue">Me</font>.DateBox_start.Value = Day(x) & <font color="teal">"/"</font> & Month(x) & <font color="teal">"/"</font> & Year(x)
<font color="blue">Me</font>.DateBox_start.Locked = True
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> SpinButton1_SpinUp()
<font color="blue">Dim</font> x <font color="blue">As</font> <font color="blue">Date</font>
x = CDate(<font color="blue">Me</font>.DateBox_start.Value)
x = x + <font color="darkblue"><b>1</b></font>
<font color="blue">Me</font>.DateBox_start.Locked = False
DateBox_start.Value = Day(x) & <font color="teal">"/"</font> & Month(x) & <font color="teal">"/"</font> & Year(x)
<font color="blue">Me</font>.DateBox_start.Locked = True
<font color="blue">End</font> <font color="blue">Sub</font>

                        