vb6,richTextBox右键弹出菜单问题！！！

自己做一个就好了
//右键弹出菜单；
private void contextMenu1_Popup(object sender, System.EventArgs e)
{
if(Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) == true)
{
this.menuItem3.Enabled=true;
}
else
{
this.menuItem3.Enabled=false;
}

if(this.richTextBox2.SelectedText.Length>0)
{
this.menuItem1.Enabled=true;
this.menuItem2.Enabled=true;
}
else
{
this.menuItem1.Enabled=false;
this.menuItem2.Enabled=false;
}

if(this.richTextBox2.CanUndo == true)
{
this.menuItem4.Enabled=true;
}
else
{
this.menuItem4.Enabled=false;
}
}
//复制；
private void menuItem1_Click(object sender, System.EventArgs e)
{
this.richTextBox2.Copy();
}
//剪切；
private void menuItem2_Click(object sender, System.EventArgs e)
{
this.richTextBox2.Cut();
}
//粘贴；
private void menuItem3_Click(object sender, System.EventArgs e)
{
this.richTextBox2.Paste();
}
//撤消；
private void menuItem4_Click(object sender, System.EventArgs e)
{
this.richTextBox2.Undo();
this.richTextBox2.ClearUndo();
}
//全选；
private void menuItem7_Click(object sender, System.EventArgs e)
{
this.richTextBox2.SelectAll();
}