Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Imports Microsoft.VisualBasic.ApplicationServices Imports System.IO Namespace My ' The following events are availble for MyApplication: ' ' Startup: Raised when the application starts, before the startup form is created. ' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally. ' UnhandledException: Raised if the application encounters an unhandled exception. ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. Partial Friend Class MyApplication Public Debug_Flow_WRITE As StreamWriter Public Property Debug_Flow_SR() As StreamWriter Get Return Debug_Flow_WRITE End Get Set(ByVal value As StreamWriter) Debug_Flow_WRITE = value End Set End Property Public Sub Me_Startup( _ ByVal sender As Object, _ ByVal e As StartupEventArgs _ ) Handles Me.Startup File.Delete("C:\Program Files\KVH Industries Inc\M10_Scan 1.1\M10_Scan_Trace.txt") Debug_Flow_WRITE = File.CreateText("C:\Program Files\KVH Industries Inc\M10_Scan 1.1\M10_Scan_Trace.txt") End Sub Public Sub Me_ShutDown( _ ByVal sender As Object, _ ByVal e As EventArgs _ ) Handles Me.Shutdown Debug_Flow_WRITE.Close() End Sub End Class End Namespace ' This code is in a form ' Debug_Flow_WRITE is nothing ' My.Application.Debug_Flow_SR is nothing too My.Application.Debug_Flow_WRITE.WriteLine("Leaving txtKVHSerialNumber.KeyUp at End Sub.")