Private Sub bb_Click() bb为菜单名,它的快捷键为DEL.并且把菜单隐藏起来.
Command2_Click
End Sub

Private Sub Command2_Click()
Text1.SetFocus
SendKeys "{home}+{end}"
End Sub