菜单改变背景色
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu MyMenu
End If
End Sub
Private Sub red_click()
Form1.BackColor = vbRed
End Sub<
菜单改变背景色
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu MyMenu
End If
End Sub
Private Sub red_click()
Form1.BackColor = vbRed
End Sub<