学习Vb 还没入门 慢慢来 路还长
Private Sub Command1_Click()
Dim s As StringDim 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