[tomjerry741]

يعنى برمجة الفورم الثالث ممكن تنفع ايضا تكون بهذا الشكل

publicclassmy_project_main
privatesub button1_click(sender asobject, e aseventargs) handles button1.click
dim ask asmsgboxresult
ask = msgbox("are you sure you want to shutdown your computer?", msgboxstyle.yesno)
if ask = msgboxresult.yes then
shell("shutdown -s")
endif
endsub
privatesub button2_click(sender asobject, e aseventargs) handles button2.click
dim ask asmsgboxresult
ask = msgbox("are you sure you want to restart your computer?", msgboxstyle.yesno)
if ask = msgboxresult.yes then
shell("shutdown -r")
endif
endsub
privatesub button3_click(sender asobject, e aseventargs) handles button3.click
shell("shutdown -a ")
if shell("shutdown /a") then
msgbox("you are ignored shutdown")
endif
endsub
privatesub button5_click(sender asobject, e aseventargs) handles button5.click
msgbox("تم تصميم هذا البرنامج من قبل مدرس بالاجر")
endsub
privatesub button4_click(sender asobject, e aseventargs) handles button4.click
form1.close()
login_screen.close()
me.close()
endsub
privatesub my_project_main_load(sender asobject, e aseventargs) handlesmybase.load
login_screen.hide()
endsub
endclass

----------