[code]
Sub OnClick(ByVal Ctrl As Object)
\' 点击按钮后要执行的代码
End Sub
[/code]
则可以在myButton的OnValueChange事件中调用该代码:
[code]
Sub OnValueChange(ByVal Value As Boolean)
\' 如果myButton的值为True,则执行OnClick事件中的代码
If Value = True Then
OnClick(Button) \' Button为按钮对象
End If
End Sub
[/code]