Const mfileName As String = "start.ini"
Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
If Me.app1.Text = "" Then
MessageBox.Show("กรุณาเลือกโปรแกรม")
Me.btnBrowse1.Focus()
Exit Sub
End If
If Me.app2.Text = "" Then
MessageBox.Show("กรุณาเลือกโปรแกรม")
Me.btnBrowse2.Focus()
Exit Sub
End If
Shell(Me.app1.Text)
Shell(Me.app2.Text)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem. _
OpenTextFileWriter(mfileName, True)
file.WriteLine(app1.Text)
file.WriteLine(app2.Text)
file.Close()
End Sub