เรียนลัด VB.NET เบื้องต้น

Timer1.Enabled = True

Timer1.Interval = 100

If ProgressBar1.Value <= 100 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
            Timer1.Interval = 50
            If ProgressBar1.Value >= 100 Then
                ProgressBar1.Value = 0
                Timer1.Enabled = False
            End If
        End If

If ProgressBar1.Value <= 100 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
            Timer1.Interval = 50
            If ProgressBar1.Value >= 100 Then
                ProgressBar1.Value = 0
                Timer1.Enabled = False
                End
            End If
        End If

My.Computer.FileSystem.CreateDirectory("C:\Documents and Settings\Administrator\Desktop\New Folder1")

My.Computer.FileSystem.CopyDirectory("C:\Documents and Settings\Administrator\My Documents\My Pictures", "C:\Documents and Settings\Administrator\Desktop\My Pictures", True)

Shell("Notepad.exe", AppWinStyle.NormalNoFocus, False, -1)

Shell("C:\Documents and Settings\Administrator\Desktop\winamp512_full.exe", AppWinStyle.NormalNoFocus, False, -1)

Process.Start("C:\Documents and Settings\Administrator\Desktop\winamp512_full")

Public Class Form1
    Dim BtnCode As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BtnCode = MsgBox("ท่านต้องการทดสอบการกดปุ่ม?", 36, "Sample Project1")
        If BtnCode = vbYes Then
            MsgBox("คุณคลิ๊กปุ่ม.. Yes", 0, "")
        Else
            MsgBox("คุณคลิ๊กปุ่ม.. No", 0, "")
        End If

    End Sub
End Class

Dim BtnCode As MsgBoxResult
        BtnCode = MsgBox("คุณต้องการทดสอบกดปุ่ม?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Test MessageBox")
        If BtnCode = MsgBoxResult.Yes Then
            MsgBox("คุณคลิ๊ก..Yes", MsgBoxStyle.Information, "")
        Else
            MsgBox("คุณคลิ๊ก..No", MsgBoxStyle.Information, "")
        End If

Public Class Form1
    Dim BtnCode As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BtnCode = MsgBox("ท่านต้องการทดสอบการกดปุ่ม?", 35, "Sample Project1")
        Select Case BtnCode
            Case vbYes
                MsgBox("คุณคลิ๊กปุ่ม.. Yes", 0, "")
            Case vbNo
                MsgBox("คุณคลิ๊กปุ่ม.. No", 0, "")
            Case vbCancel
                MsgBox("คุณคลิ๊กปุ่ม.. Cancel", 0, "")
        End Select
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("ระวัง! พบข้อผิดพลาด ตรวจสอบอีกครั้ง ", 48, "")
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("ระบบทำงานล้มเหลว!?!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "")
    End Sub
End Class

Private Sub Form_Load()

End Sub
_______________________________________________________
Private Sub wmpRun_OpenStateChange(ByVal NewState As Long)

End Sub
_______________________________________________________
Private Sub txtURL_Change()

End Sub
_______________________________________________________
Private Sub cmdOpenFile_Click()
cdlFile.ShowOpen
cdlFile.Filter = "MP3 File (*.mp3 : *.dat ) | *.mp3; *.dat | All File (*.*) | *.*"
txtURL.Text = cdlFile.FileName
End Sub
________________________________________________________
Private Sub Command1_Click()
wmpRun.URL = txtURL.Text
End Sub

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
        OpenFileDialog1.Title = "Select a file to Open:"
        OpenFileDialog1.Filter = "Program File(*.exe;*.msi)|*.exe;*.msi|All Files(*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell(TextBox1.Text, AppWinStyle.NormalFocus)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = True
        Button3.Enabled = True
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Proc As Process
        TextBox1.Text = TextBox1.Text
        Proc = Process.Start(TextBox1.Text, TextBox2.Text)
        Proc.WaitForExit()
        MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.OkOnly + MsgBoxStyle.ApplicationModal, "")
    End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("C:\Documents and Settings\Administrator\Desktop\AutoInstallerVB.NET_Project9\ProjectHit\Plugin\USSF1", _
              AppWinStyle.NormalFocus)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
        TextBox2.Enabled = False
        ComboBox1.Enabled = False
    End Sub

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
        ComboBox1.Enabled = True
        TextBox2.Enabled = True
    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox2.Text = ComboBox1.Text
        Button2.Enabled = True
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Proc As Process
        TextBox1.Text = TextBox1.Text
        Proc = Process.Start(TextBox1.Text, TextBox2.Text)
        Proc.WaitForExit()
        MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.OkOnly + MsgBoxStyle.ApplicationModal, "")
        End
    End Sub

Public Class Form1
    Dim Resp As String
    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Resp = InputBox("คุณต้องการทดสอบพิมพ์ข้อความ?", "Test InputBox Project", _
"พิมพ์ข้อความที่นี่")
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text
        MsgBox("ชื่อของท่านคือ:" & TextBox1.Text, MsgBoxStyle.DefaultButton1, _
"Answer")
    End Sub

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Dim fname
        fname = InputBox("กรุณากรอกชื่อลงในช่อง")
        MsgBox("ชื่อของคุณคือ " & fname)
    End Sub
End Class

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Dim StrName As String
        StrName = InputBox("กรอกชื่อสกุล", "Name", "", -1, -1)
        Dim StrPhone As String
        StrPhone = InputBox("กรอกเบอร์โทรศัพท์", "Phone", "", -1, -1)
        Dim StrDis As String
        StrDis = InputBox("กรอกข้อความรายละเอียด", "Dis", "", -1, -1)
        MsgBox("Name:" & StrName & vbCrLf & "Phone:" & _
StrPhone & vbCrLf & "Dis:" & StrDis, MsgBoxStyle.OkOnly, "Record")
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If RadioButton2.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If RadioButton3.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub
End Class

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If CheckBox2.Checked Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If CheckBox3.Checked Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub
End Class

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Select Case ListBox1.SelectedIndex
            Case 0 'ปวดหัว
                Label2.Text = "บีบนวด เส้นเอ็นหรือกล้ามเนื้อ บริเวณท้ายทอย"
            Case 2 'ปวดฟัน
                Label2.Text = "แปรงฟันด้วย ยาสีฟันตราดอกบัวคู่ เป็นประจำ"
            Case 4 'ไอ
                Label2.Text = "ทานช็อกโกแล็ตเป็นประจำ จะทำให้การไอทุเลาลง"
            Case 6 'ปวดใจ
                Label2.Text = "ให้คิดว่า บุรุษ หรือ สตรี ไม่ได้มีอยู่คนเดียวในโลก " & vbCrLf & vbCrLf & "ยังมีคนที่ดีกว่าให้เลือกอีกเยอะ"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex = 0 Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
        If ListBox1.SelectedIndex = 1 Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
        If ListBox1.SelectedIndex = 2 Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Me.Close()
    End Sub

    Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolTip1.SetToolTip(Button1, "ติดตั้งอัตโนมัติ")
        ToolTip1.SetToolTip(Label1, "ปิดโปรแกรม")
        ToolTip1.SetToolTip(ListBox1, "เลือกติดตั้ง")
        ToolTip1.SetToolTip(TextBox1, "ชื่อโปรแกรม[i][/i][สำหรับอ่านเท่านั้น]")

    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
       
        PgB1.Minimum = 1
        PgB1.Maximum = 100
        PgB1.Step = 1
        PgB1.Value = 1
       
        Dim x As Integer
        For x = 1 To 100 Step 1
            If PgB1.Value < 100 Then
                PgB1.Value += 1
                Threading.Thread.Sleep(50)
            End If
        Next x
        If PgB1.Value >= 100 Then
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            PgB1.Value = 1
        End If
    End Sub
   
    Private Sub PgB1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles PgB1.Click
    End Sub
End Class

Close()

Me.Close

Application.Exit()

MessageBox.Show("ยินดีต้อนรับ")

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("ezb5_en.exe")
        Threading.Thread.Sleep(2000)
        AppActivate("Setup - EasyBoot")
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{TAB}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{UP}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
    End Sub
End Class
 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
        AppActivate("Test Activate")
        Threading.Thread.Sleep(1000)
        SendKeys.SendWait("1A2B3C-4D5E6F-I7J8K-9L0M1N-2O3P4Q5R-6S7T8U")
    End Sub
End Class

For counter = start To end [Step step]
    [statements]
    [Exit For]
    [statements]
Next

While condition
    [ statements ]
    [ Exit While ]
    [ statements ]
End While

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
        Dim x As Integer
        For x = 1 To 100
            x += 1
            ProgressBar1.Value += 1
            ProgressBar1.PerformStep()
            Threading.Thread.Sleep(50)
            If x = 50 Then Exit For         '<----คำสั่งที่ใส่เพื่อทดสอบ----<<
            Next x
        If ProgressBar1.Value >= 100 Then
            Threading.Thread.Sleep(500)
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
        Dim x As Integer
        For x = 1 To 100
            x += 1
            ProgressBar1.Value += 1
            ProgressBar1.PerformStep()
            Threading.Thread.Sleep(50)
            If x = 50 Then                       
           MsgBox("BarCurrent = 50%", MsgBoxStyle.Information, "")   '<-Message ยืนยันการทำงาน ตามเงื่อนไข-<
            End If
            Next x
        If ProgressBar1.Value >= 100 Then
            Threading.Thread.Sleep(500)
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        If ProgressBar1.Value < 100 Then
            Label1.Text = "Installing.." & ProgressBar1.Value.ToString() & "%"
            ProgressBar1.PerformStep()
            i = i + 1
            If ProgressBar1.Value >= 100 Then
               Timer1.Enabled = False
                MsgBox("Completed.", MsgBoxStyle.Information, "")
                ProgressBar1.Value = 0
                Label1.Text = "Installing..0%"
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Imports System
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = "C:\Documents and Settings\Administrator\Desktop\Readme.txt"
        If File.Exists(path) = False Then
            ' Create a file to write to.
            Using sw As StreamWriter = File.CreateText(path)
                sw.WriteLine("ยินดีต้อนรับ")
                sw.WriteLine("เข้าสู่บทเรียน")
                sw.WriteLine("JaVaScript")
                sw.WriteLine("Made by:sak2005")
                sw.Flush()
            End Using
        End If
        Using sr As StreamReader = File.OpenText(path)
            Do While sr.Peek() >= 0
                Console.WriteLine(sr.ReadLine())
            Loop
        End Using
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "A" Then
            MsgBox("คุณกดปุ่ม A", MsgBoxStyle.Information, "")
            MsgBox("เปลี่ยนจาก Control-A เป็น Control-B", MsgBoxStyle.Information, "")
            Button1.Text = "B"
        Else
            If Button1.Text = "B" Then
                MsgBox("คุณกดปุ่ม B", MsgBoxStyle.Information, "")
                MsgBox("เปลี่ยนจาก Control-B เป็น Control-C", MsgBoxStyle.Information, "")
                Button1.Text = "C"
            ElseIf Button1.Text = "C" Then
                MsgBox("คุณกดปุ่ม C", MsgBoxStyle.Information, "")
                MsgBox("เปลี่ยนจาก Control-C ย้อนเป็น Control-A", MsgBoxStyle.Information, "")
                Button1.Text = "A"
            End If
        End If
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Image files (*.jpg;*.gif;*.bmp;*.png)|*.jpg;*.gif;*.bmp;*.png|All Files (*.*)|*.*"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
            Button2.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     SaveFileDialog1.FileName = (OpenFileDialog1.FileName)  'โค๊ดที่ใส่เพิ่มเติม
        Dim strName As String
        SaveFileDialog1.Filter = "Image files (*.jpg;*.gif;*.bmp;*.png)|*.jpg;*.gif;*.bmp;*.png|All Files (*.*)|*.*"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            strName = SaveFileDialog1.FileName
            PictureBox1.Image.Save(strName)
            MsgBox("บันทึกเรียบร้อย", MsgBoxStyle.Information, "")
            Button2.Enabled = False
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        ToolTip1.SetToolTip(Button1, "กรุณาเลือกรูปภาพก่อนคลิ๊ก Open เพื่อแสดงรูปภาพ")
    End Sub

    Private Sub Button2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseEnter
        ToolTip1.SetToolTip(Button2, "กรุณาเลือกสถานที่เก็บและพิมพ์ชื่อ-สกุล รูปภาพ ลงในช่อง File name ก่อนคลิ๊ก Save")
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oShell
        oShell = CreateObject("WScript.Shell")
        oShell.Run("cmd /c Notepad.exe")
        oShell = Nothing
    End Sub

@echo off
title Run Calc Sample
color 9F
echo.
echo Calc Running
echo.
start Calc.exe
pause
exit

Process.Start("E:\setup.exe")

Dim ShellObj, Btncode
Set ShellObj=CreateObject("WScript.Shell")
BtnCode=MsgBox("ท่านต้องการติดตั้งใช่หรือไม่?", 36, "EasyBoot AutoSetup")
If BtnCode=vbYes Then
ShellObj.Run"ezb5_en.exe /VERYSILENT /SP-", 0, True
MsgBox"ติดตั้งเรียบร้อย", 64, ""
Else
MsgBox"ติดตั้งใหม่ภายหลัง", 4096, ""
End If
Set ShellObj=Nothing
WScript.Quit()

var ShellObj, BtnCode;
ShellObj=new ActiveXObject("WScript.Shell");
BtnCode=ShellObj.Popup("ท่านต้องการติดตั้งใช่หรือไม่?", 0, "EasyBoot AutoSetup", 36);
switch (BtnCode){
   case 6:
ShellObj.Run("ezb5_en.exe /VERYSILENT /SP-",0, true);
ShellObj.Popup("ติดตั้งเรียบร้อย", 0, "", 64);
break;
   case 7:
 ShellObj.Popup("ติดตั้งใหม่ภายหลัง", 0, "", 4096);
break;
 }

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Color.Transparent
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.BackColor = Color.Transparent
    End Sub
End Class

Public Class Form1
    Dim textout As String
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable = False Then
            MessageBox.Show("ท่านยังไม่ได้ต่ออินเทอร์เน็ต")
        Else
            textout = TextBox1.Text
            If textout <> "" Then
                If My.Computer.Network.Ping(textout, 1000) Then
                   MessageBox.Show("ติดต่อสำเร็จ.")
                    Process.Start(textout)
                    Application.Exit()
                Else
                   MessageBox.Show("ไม่สามารถติดต่อได้.")
                   TextBox1.Clear()
                End If
            Else
                MessageBox.Show("กรุณากรอกลิ๊งค์เว็บลงในช่อง.")
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.ShowDialog()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form3.Show()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Close()
    End Sub

    Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Application.Exit()
    End Sub

End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim infoReader As System.IO.FileInfo
        Dim filepath As String = "c://test.exe"
        If My.Computer.FileSystem.FileExists(filepath) Then
            infoReader = My.Computer.FileSystem.GetFileInfo(filepath)
            MsgBox("พบไฟล์ " & filepath & " ขนาด " & infoReader.Length / 1024 & " .KB")
            My.Computer.FileSystem.DeleteFile(filepath, _
            FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)
        Else
            MsgBox("ไม่พบไฟล์ดังกล่าว")
        End If

    End Sub
End Class