ပရိုဂရမ္ ဆက္ေရးမယ္ ေနာ္ ( ၂ )
  ျပီးခဲ့တဲ့ စာလိုခ်င္သလိုေရးတာမွာ 
Private Sub Form_Load()
    Form1.AutoRedraw = True
   
    Form1.CurrentX = 10 * 55
    Form1.CurrentY = 20 * 55
   
    Print "Start Program"
    Form1.CurrentX =30 * 55
    Form1.CurrentY = 30 * 55
   
    Print "Other Line"



End Sub
 ကိုလိုခ်င္သလိုေနရာခ်တတ္သြားမယ္ ထင္ပါတယ္ ၊ လက္ေတြ႕လုပ္ၾကည့္ပါ ရပါမယ္၊ ကၽြန္ေတာ့ အေတြ႕ အၾကံဳအရ ေတာ့ ဒီဟာက သိပ္လြယ္မယ္ထင္တယ္၊ ခက္ေအာင္ လုပ္ၾကည္မယ္ ေနာ္
Private Sub Form_Load()
     Form1.AutoRedraw = True
    Form1.CurrentX = 10 * 55
    Form1.CurrentY = 20 * 55

    Print "Start Program"

    Form1.CurrentX = 30 * 55

    Form1.CurrentY = 30 * 55
    Print "Other Line"

    mmm = Txtplace(40, 40, "My Text")   ' သည္တစ္ေၾကာင္းတိုလာမည္
   
End Sub

Public Function Txtplace(x, y, inTxt)
    Form1.CurrentX = x * 55
    Form1.CurrentY = y * 55
   
    Form1.Print inTxt
End Function
နဲနဲ ပိုခက္သြားမယ္ မသိ၊ မရွင္းရင္ေမးထားပါ၊ ေျဖေပးပါမယ္။ 
Function ကိုသံုးသြားတာပါ ၊Txtplace ဆိုတဲ့  function  ကိုသံုးသြားတာပါ ၊ ခုအခ်ိန္မွာ ဖိုင္ကို သိမ္းဖို႕အေၾကာင္း မေျပာေသးပါဘူး၊ ဖိုင္ေတြကို မသိမ္းခင္မွာ ေျပာခ်င္တာ ရွိပါတယ္ ကို ပရုိဂရမ္ တစ္ခု ေရးမယ္ဆိုရင္ Folder တစ္ခုလုပ္ထားေစခ်င္ပါတယ္၊ Folder ထဲမွာ ဖိုင္ေတြကို သိမ္းတဲ့အခါ Form , Project နဲ႕ အကူအညီေပးတဲ့ ဖိုင္ေတြကို တစ္ေနရာထဲမွာ သိမ္းထားေစခ်င္တာပါ၊ ပံု ေတြကို up Load ကိုအဆင္ မေျပေသးေတာ့ စာနဲ႕ပဲေျပာေနရေသးတာပါ၊ Folder တစ္ခု Project တစ္ခုျဖစ္ေစခ်င္ပါတယ္၊ အဲ့ဒီလို မျဖစ္ရင္ မိမိလုပ္ထားတဲ့ ဖိုင္ေတြ က တစ္ခုနဲ႕တစ္ခု ခ်ိတ္သြားျပီး သံုးလို႔ မရတာမ်ိဳးေတြကို ပရုိဂရမ္ စေရးတဲ့ သူေတြမွာ ၾကံဳေတြ႕ရပါမယ္။ Folder တစ္ခု Project တစ္ခုျဖစ္ေအာင္ လုပ္ပါ၊ Folder Name ကို Project name ေပးထားတာ ပိုအဆင္ေျပပါမယ္။
လူအမ်ားစု အဲ့ဒီမွာတြင္ ပရိုဂရမ္ ဆက္မေရးျဖစ္ေတာ့ဘူး ဖြင့္တာ တစ္ျခား ပြင့္တာ တျခားေတြျဖစ္ကုန္လို႔ဘဲ၊ စိတ္ညစ္သြားျပီေလ ကြန္ပ်ဴတာ အေျခခံ လိုတယ္ ဆိုတာ အဲ့ဒါေျပာတာပါ၊ မိမိ လုပ္ထားတဲ့ Standard EXE ဖိုင္တစ္ခုအတြက္ Folder တစ္ခုလုပ္ပါ။
Form1.Line (10 * 55, 10 * 55)-(30 * 55, 30 * 55) ဆိုတာကို Form_Load() ထဲမွာ ထည့္ၾကည့္ပါ ဘာျဖစ္လာမွာလဲ၊ ျပန္ေျပာမယ္ ၅၅ က ေဖာင္ေပၚမွာ ၁ မီလီမီတာ အကြာအေ၀းရ ေအာင္ Pixle ကိုေျမွက္ေပးတဲ့ သေဘာပါ။ ၅၅ ကိုသတိရပါအဆင္ေျပတဲ့ေနတိုင္း ေျဖးေျဖးေရးသြားပါမယ္ ၊ ဇာတာ ဖြဲ႕တာအထိ တျဖည္းျဖည္းနဲ႔  ၾကိဳးစားေပးပါမယ္၊ အရင္ ကေတာ့ ဆိုင္မွာ သြားျပီလုပ္ေနရေတာ့ မလုပ္ျဖစ္ဘူး အခုေတာ့ ဖုန္းနဲ႕ အင္တာနက္ ခ်ိတ္ျပီး သံုးေတာ့ အရင္ကထက္စာရင္ ပိုျပီးလုပ္ေပးႏိုင္မယ္။ နဲနဲလဲ ကၽြန္ေတာ့ကို တိုက္တြန္း ေပးေပါ့ ။ သူငယ္ခ်င္းေတြ ၊ မိတ္ေဆြေတြ ရဲ႕ အားေပး မွဳကိုလဲ ေမွ်ာ္လင့္ပါတယ္။ ဒီေန႕ေတာ့ နားမယ္