Private Sub Command1_Click()
Dim s As String
Dim s As LoadPictureColorConstants
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
a = Label1.ForeColor
Label1.ForeColor = Label2.ForeColor
Label2.ForeColor = a
End Sub
Dim s As String
Dim s As LoadPictureColorConstants
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
a = Label1.ForeColor
Label1.ForeColor = Label2.ForeColor
Label2.ForeColor = a
End Sub