Private Sub CommandButton1_Click()Dim WSH As ObjectSet WSH = CreateObject("WScript.shell")WSH.Popup "A+B", 5, "警告", vbInformationSet WSH = NothingEnd Sub
你的ecxel是不是32位的