效果很好而且很简单

用text的click属性即可

private sub text1_click()
label1.caption="******"
label2.caption=""
label3.caption=""
label4.caption=""
……
labeln.caption=""
end sub

private sub text2_click()
label1.caption=""
label2.caption="******"
label3.caption=""
label4.caption=""
……
labeln.caption=""
end sub
…………
也可加入backcolor的设置