あ〜、そういうことか
text = "TestProgram"
mesbox text, 640, 300
mesbox_hwnd = objinfo(stat, 2)
objsize 100, 30
pos 0, 300: button gosub "切り取り", *cut
pos 100, 300: button gosub "コピー", *copy
pos 200, 300: button gosub "貼り付け", *paste
pos 300, 300: button gosub "削除", *clear
pos 400, 300: button gosub "アンドゥ", *undo
stop
*cut
sendmsg mesbox_hwnd, 0x0300
return
*copy
sendmsg mesbox_hwnd, 0x0301
return
*paste
sendmsg mesbox_hwnd, 0x0302
return
*clear
sendmsg mesbox_hwnd, 0x0303
return
*undo
sendmsg mesbox_hwnd, 0x00C7
return