Private Sub Label2_Click()
If Label2.Caption = "高" Then Label2.Caption = "低" Label2.BackColor = vbRed
Else Label2.Caption = "高" Label2.BackColor = vbGreen
End If
End Sub
要学会举一反三
Private Sub Label1_Click()
If Label2.Caption = "高" Then Label2.Caption = "低" Label2.BackColor = vbRed
Else Label2.Caption = "高" Label2.BackColor = vbGreen
End If
End Sub