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();        
  }