vb 6.0中存在的问题

做一个弹出式菜单 输入代码在Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single)
的时候提示编译错误，无效字符，哪位大侠告诉我这是为什么？
所有代码如下：Private Sub Color_Click()
If Text1.Text = "" Then
Red.Enabled = False
Blue.Enabled = False
Green.Enabled = False
Else
Red.Enabled = True
Blue.Enabled = True
Green.Enabled = True
End If
End Sub
Private Sub Red_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Blue_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Green_Click()
Text1.ForeColor = vbGreen
End Sub

Private Sub Bld_Click()
Bld.Checked = Not Bld.Checked
Text1.FontBold = Bld.Checked
End Sub
Private Sub Itl_Click()
Itl.Checked = Not Itl.Checked
Text1.FontItalic = Itl.Checked

End Sub
Private Sub Undrln_Click()
Undrln.Checked = Not Undrln.Checked
Text1.FontUnderlin

VB中，判断文件夹是否存在的问题 VB中执行VB语句的问题 工作中存在的问题 汽车交易中存在的问题! 在VB中，怎么检测电子邮件符号“@”的存在 VB中如何查询某个文件的存在? VB中数据类型的问题 VB中TOOLBAR的问题 vb 中全局变量的问题 vb中托盘的问题?