按钮事件 private sub button4_click(byval sender as system.object, byval e as system.eventargs) handles button4.click dim con as control for each con in me.controls if typeof (con) is textbox then dim txt as textbox = con if txt.tag = "a" then txt.text = "" end if end if next end sub