红糖水白糖水作业
Private Sub Command1_Click()
Dim a As String
a = Me.Label1.Caption
Me.Label1.Caption = Me.Label2.Caption
Me.Label2.Caption = a
Dim b As String
b = Me.Label1.ForeColor
Me.Label1.ForeColor= Me.Label2.ForeColor
Me.Label2.ForeColor = b
End Sub