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