3. ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnGetName แล้วเขียนโค้ด ดังนี้
Private Sub BtnGetName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetName.Click
TxtGetComputerName.Text = System.Environment.MachineName
End Sub |
4. ทำการ ดับเบิ้ลคลิกที่ปุ่ม BtnCancel แล้วเขียนโค้ด ดังนี้
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
TxtGetComputerName.Clear()
TxtGetComputerName.Focus()
End Sub |
ผลลัพธ์ Screen Shot หน้าโค้ด

ขอขอบคุณที่มา :: http://www.devasp.net/net/articles/display/354.html |