| 发表于:2007-07-20 11:55:123楼 得分:0 |
private declare function getsystemmenu lib "user32 " (byval hwnd as long, byval brevert as long) as long private declare function removemenu lib "user32 " (byval hmenu as long, byval nposition as long, byval wflags as long) as long private sub command1_click() unload me end sub private sub form_load() dim r as integer mymenu = getsystemmenu(me.hwnd, 0) removemenu mymenu, &hf060, r end sub | | |
|