参考答案

Private Sub Dis_Click()
    Text1.Text = "等级考试"
End Sub
Private Sub Hid_Click()
    Text1.Visible = False
End Sub