funny coding..

ဒီလိုfunnyေလးလိုခ်င္တာလားေတာ့မသိပါ ေတာင္းထားတာေတြ႔လို႔လုပ္ေပးလိုက္ပါတယ္။မွားသြားရင္sorryပါ အသံထည့္ခ်င္ရင္သတ္ဆိုင္ရာcaseမ်ားမ်ားplayerတစ္ခုထည့္ပါ။

main
*****
AddButton("b",0%x,40%y,40%x,20%y,"")
SetText("b","က်ား")

AddButton("c",60%x,40%y,40%x,20%y,"")
SetText("c","မ")

AddLabel("lbl1",24,222,720,120,"")
SetText("lbl1","သင္မေက်နပ္ေသာသူ(or)ေစာက္ျမင္ကတ္ေသာသူေတကိုေရးခ်ပစ္စမ္း ခ္ခ္")

event
******
Sub Button_Click(Who)
select who
case"b"
InputBox("","သင္မေက်နပ္ေသာသူရဲ႔အမည္","Ok","","")
ShowToast("သတ္ပလိုက္ပီ...းးဒိုင္းးးးး!",True)
case"c"
InputBox("","သင္မေက်နပ္ေသာသူရဲ႔အမည္","Ok","","")
ShowToast("သတ္ပလိုက္ပီ...းးဒိုင္းးးးး!",True)
end select
End Sub

funny coding..