在VB（Visual Basic）中，要在文本框中读取和显示年月日，你可以使用以下方法：
方法一：使用`Format`函数
你可以使用`Format`函数将日期格式化为指定的字符串格式。例如，将日期格式化为"yyyy-mm-dd"格式，并将其赋值给文本框的`Text`属性。
```vb
Private Sub Form_Click（）
' 获取当前日期
Dim currentDate As Date = Now
' 将日期格式化为"yyyy-mm-dd"格式
Dim formattedDate As String = Format（currentDate, "yyyy-mm-dd"）
' 将格式化后的日期显示在文本框中
Text1.Text = formattedDate
End Sub
```
方法二：使用`DateValue`函数
如果你已经有一个代表日期的字符串，可以使用`DateValue`函数将其转换为日期类型，然后使用`Year`、`Month`和`Day`函数分别获取年、月和日，并将它们拼接成所需的格式。
```vb
Private Sub Form_Click（）
' 假设文本框Text1中包含日期字符串
Dim dateString As String = Text1.Text
' 将字符串转换为日期类型
Dim dateValue As Date = DateValue（dateString）
' 获取年、月和日
Dim year As Integer = Year（dateValue）
Dim month As Integer = Month（dateValue）
Dim day As Integer = Day（dateValue）
' 将年、月和日拼接成字符串
Dim formattedDate As String = year & "年" & month & "月" & day & "日"
' 将格式化后的日期显示在文本框中
Text1.Text = formattedDate
End Sub
```
方法三：使用定时器
你还可以使用定时器定期更新文本框中的日期显示。例如，每秒更新一次。
```vb
Private Sub Form_Load（）
' 初始化定时器
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer（）
' 获取当前日期
Dim currentDate As Date = Now
' 将日期格式化为"yyyy-mm-dd"格式
Dim formattedDate As String = Format（currentDate, "yyyy-mm-dd"）
' 将格式化后的日期显示在文本框中
Text1.Text = formattedDate
End Sub
```
建议
选择合适的方法：
根据你的具体需求选择合适的方法。如果你只需要显示当前日期，使用`Format`函数或`DateValue`函数即可。如果你需要定期更新日期显示，使用定时器更为合适。
错误处理：
在实际应用中，建议添加错误处理机制，以确保程序在遇到异常情况时能够正常运行。
优化性能：
如果需要频繁更新日期显示，可以考虑优化性能，例如使用更高效的数据绑定或缓存机制。
希望这些方法能帮助你成功在VB中实现文本框中读取和显示年月日的功能。