用vb代码如何实现这两个效果？

Private Sub Text1_Click()
If Text1.Text = "请输入你的内容" Then
Text1.Text = ""
End If
End Sub

Private Sub Text1_Keypress(Keyascii As Integer)
'在Text1中按回车后把Text1里的内容添加到Combo里面
If Keyascii = 13 Then
Combo1.AddItem Text1.Text
Text1.Text = ""
End If
End Sub

文本框那有什么下拉下拉列表，你是说的COMBO控件吧。因为只有Combo控件才有下拉列表
我写的代码
Private Sub Command1_Click()
For i = 0 To Combo1.ListCount
If Combo1.Text = Combo1.List(i) Then Exit Sub ’用于判断是否是重复的，如果是重复的就退出
Next
Combo1.AddItem Combo1.Text ’把Combo控件里面的内容添加到下拉列表中
End Sub
Private Sub Combo1_GotFocus()
If Combo1.Text = "请输入你的内容" Then Combo1.Text = "" ’判断在Combo控件里面的文字是不是“请输入你的内容”如果是就清空
End Sub

上面就是我的代码，如果你说的是把文本框里面的“请输入你的内容”清空的话，就是这样
Private Sub Text1_GotFocus()
If Text1.Text = "请输入你的内容" Then Text1.Text = ""
End Sub
Private Sub Command1_Cli