主题：[求助]动态添加按钮事件

求教：动态添加按钮后如何为该按钮添加事件？

With Forms("窗口1")
Dim But As WinForm.Button
But = .CreateControl("退出", ControlTypeEnum.Button)
But.Text = "退出"
But.SetBounds(5, 5, 45, 40) 'SetBounds(x, y, Width, Height)
But.TextAlign = ContentAlignment.BottomCenter
.AddControl(But)

End With

参考：

http://www.foxtable.com/help/topics/1920.htm