使弹出的页面设置为不透明

454585737

给回答问题的学生加分后，开始计算，弹出的页面是透明的，不能覆盖张灯片，以致看不清加分。请帮我修改一下代码，设置弹出页面为不透明。

1. 
   
2. Private Sub CommandButton3_Click()
   
3.     Dim txt As String
   
4.     Dim i, m, n As Integer
   
5.     If CommandButton3.Caption = "算" Then
   
6.         txt = "小组得分：" & Chr(13) & Chr(10)
   
7.         For i = 1 To zucount
   
8.             m = i Mod 4
   
9.             If m = 0 Then
   
10.                 txt = txt + "　　" + CStr(i) + "组" + CStr(zus(i)) + "分" & Chr(13) & Chr(10)
    
11.             Else
    
12.                 txt = txt + "　　" + CStr(i) + "组" + CStr(zus(i)) + "分"
    
13.             End If
    
14.         Next
    
15.         txt = txt & Chr(13) & Chr(10) & "个人得分：" & Chr(13) & Chr(10)
    
16.         n = 1
    
17.         For i = 0 To stucount
    
18.             If studefen(i) > 0 Then
    
19.                 m = n Mod 3
    
20.                 If m = 0 Then
    
21.                     txt = txt + "　" + Students(i, 1) + "：" + CStr(studefen(i)) + "分" & Chr(13) & Chr(10)
    
22.                 Else
    
23.                     txt = txt + "　" + Students(i, 1) + "：" + CStr(studefen(i)) + "分"
    
24.                 End If
    
25.                 n = n + 1
    
26.             End If
    
27.         Next
    
28.         Label2.Caption = txt
    
29.         Label2.Visible = True
    
30.         CommandButton3.Caption = "藏"
    
31.     Else
    
32.         Label2.Visible = False
    
33.         CommandButton3.Caption = "算"
    
34.     End If
    
35. End Sub

复制代码