Private Sub Command1_Click()
Text1.Text = "可以吗"
Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
Text2.SelText = Clipboard.GetText
End Sub
我就想把第一个文本框内容黏贴到文本框2中的，有什么错误吗？为什么老是不行啊

谢谢上面解决了，请问
Private Sub Command32_Click()
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)
End Sub
这个我发帖问过了，早上也是这样的  我输入2010/1/12 显示2010 单是后来保存打开在输入老是报错你  输入框和按钮都没错

报错显示 类型匹配错误，我点击调试，箭头指向  MsgBox "今年是" & Year(a) 符号什么我都检查过了 没错啊  但是运行 我输入日期格式就是2010/12/10 就这样格式 总是报错

六楼误会了，我是输入的时候是小写 但是已返回在查看代码就是Year了  

按照你的代码a=format(cdate(text1.text)"yyyy-mm-dd") 却可以，但是为什么不能这样赋值 a=cdate(text1.text)

可能是我电脑问题吧 我把这段代码复制进去。
Dim a As String
a = CDate(Text16.Text)
MsgBox "今年是" & Year(a)还是最后一句报错 晕了