Option Explicit
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 2 Then '若单击鼠标右键
PopupMenu mnuformcolor '在窗体上创建弹出式菜单
End If
End Sub

Private Sub mnucolor_Click(index As Integer) '出错点错把mnucolor打成mnuformcolor 运行不了
Select Case index '以子菜单的索引作为变量
Case 0 '若索引为0
Me.BackColor = vbRed '窗体的背景色为红色
Case 1
Me.BackColor = vbGreen
Case 2
Me.BackColor = vbBlue
End Select
End Sub