Another summer day Is come and gone away In Paris and Rome But I wanna go home Mmmmmmmm
Maybe surrounded by A million people I Still feel all alone I just wanna go home Oh I miss you, you know
And I’ve been keeping all the letters that I wrote to you Each one a line or two I’m fine baby, how are you? Well I would send them but I know that it’s just not enough My words were cold and flat And you deserve more than that
Another aerorplane Another sunny place I’m lucky I know But I wanna go home Mmmm, I’ve got to go home
Let me go home I’m just too far from where you are I wanna come home
And I feel just like I’m living someone else’s life It’s like I just stepped outside When everything was going right And I know just why you could not Come along with me But this was not your dream But you always believe in me
Another winter day has come And gone away And even Paris and Rome And I wanna go home Let me go home
And I’m surrounded by A million people I Still feel alone Oh, let go home Oh, I miss you, you know
Let me go home I’ve had my run Baby, I’m done I gotta go home Let me go home It will all right I’ll be home tonight I’m coming back home
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("ชื่อ นายภานุวัฒน์ " + vbCrLf + "นามสกุล ประวิสารัตน์" + vbCrLf + "รหัส 51040249211", "ผู้จัดทำ", MessageBoxButtons.OK) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show("นี้คือการแสดงปุ่มYes No Cancel", "Messagebox2", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MessageBox.Show("นี้คือการแสดงปุ่ม Retry Cancel", "MessageBox3", MessageBoxButtons.RetryCancel, MessageBoxIcon.Information) End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MessageBox.Show("นี่คือการแสดงปุ่ม Abort Retry Ignore", "MessageBox4", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Stop) End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click MessageBox.Show("คุณต้องการทำใบงานทุกชิ้นที่อาจารย์สั่งจึงจะได้คะแนนมากๆๆ", "MessageBox5", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation) End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click MessageBox.Show("ทำงานใกล้เสร็จแล้วดีใจจริงๆจะได้ไปพักซักที", "MessageBox6", MessageBoxButtons.OK) End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End MessageBox.Show("คุณต้องการออกจากโปรแกรมหรือไม่", "กรุณาระบุค่า", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, ) End Sub End Class