参考代码
Dim btn2 As WinForm.Button = e.Form.Controls("Button2") '假设按钮为Button2If bt2.Text = "显示" Then bt2.Text = "隐藏"Else bt2.Text = "显示"End If