VB关于红糖水与白糖水的交换

打开VB后的主要步骤

private sub command1_click( )

dim s as string
dim a as loadpictarecolorconstants
s=loabl1.caption
label1.caption=label2.caption
label2.caption=s
a=label1.forecolor
label1.forecolor=label2.forecolor
label2.forecolor=a