>>391
無名Subの方がいい希ガス

Dim wnd As Window("foo")
Dim btn As Button("bar")
wnd.Attatch(btn)
btn.OnClick = Sub
  MsgBox("bar")
  End
End Sub