ခ်စ္သူႏွင့္ စကားႏိုင္လုနည္း

Kalvin Alexander ေရးထားတဲ့ ခ်စ္သူနဲ႕ စကားႏိုင္လုနည္း procedure ေလး သေဘာက်လို႕ တင္ထားလိုက္တယ္။ အပ်င္းထူၿပီး blog မေရးျဖစ္တာၾကာၿပီ။ ဒီေန႕ညေန အိမ္ျပန္ေရာက္ရင္ေတာ့ တစ္ခုခု ေရးျဖစ္ေကာင္းပါရဲ႕။ အေၾကြးေတြ အမ်ားႀကီးပဲ တင္ေနတယ္။ အလုပ္ေၾကြးေတြ၊ ဖတ္စရာ စာေၾကြးေတြ၊ ေရးစရာ blog ေၾကြးေတြ။ မ်ားမွမ်ားပဲ။
MessageBox.Show(IIF(CheckAction,"Looks Good","Run For Your Life"))

Public Sub CheckAction As Boolean

If Relationship.IsUpset(GirlFriend.Mood) = True then
Try
Conversation.Backoff()
Catch ex As Exception
Conversation.Mouth.Zip()
End Try
Else
On Error Goto Flee
Conversation.Debate.Continue()
End If

Return True

Exit Sub

Flee:

Conversation.Current.Abort()
Conversation.Debate.Abort(oprKillAllProcess)
GirlFriend.Compromise(byAnyMeans)

Return False

End Sub