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
作业1
最新推荐文章于 2024-07-13 18:23:51 发布