[FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]Private[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]WithEvents[/COLOR][/COLOR] serial [COLOR=blue][COLOR=blue]As[/COLOR][/COLOR] System.IO.Ports.SerialPort[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]Protected[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Overrides[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Sub[/COLOR][/COLOR] OnStart([COLOR=blue][COLOR=blue]ByVal[/COLOR][/COLOR] args() [COLOR=blue][COLOR=blue]As[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]String[/COLOR][/COLOR])[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New] serial = [COLOR=blue][COLOR=blue]New[/COLOR][/COLOR] System.IO.Ports.SerialPort()[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]End[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Sub[/COLOR][/COLOR][/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE] [FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]Private[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Sub[/COLOR][/COLOR] DataReceived(sender [COLOR=blue][COLOR=blue]As[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Object[/COLOR][/COLOR], e [COLOR=blue][COLOR=blue]As[/COLOR][/COLOR] System.IO.Ports.SerialDataReceivedEventArgs) [COLOR=blue][COLOR=blue]Handles[/COLOR][/COLOR] serial.DataReceived[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New] [COLOR=SeaGreen]'do stuff here[/COLOR] [/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]End[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Sub[/COLOR][/COLOR][/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE] [FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=blue][COLOR=blue]Protected[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Overrides[/COLOR][/COLOR] [COLOR=blue][COLOR=blue]Sub[/COLOR][/COLOR] OnStop()[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New] serial.Dispose()[/FONT][/SIZE][/FONT][SIZE=2]
[/SIZE] [FONT=Courier New][SIZE=1][FONT=Courier New][SIZE=2][COLOR=blue][COLOR=blue]End[/COLOR][/COLOR][/SIZE][COLOR=blue][COLOR=blue][SIZE=2] Sub[/SIZE][/COLOR][/COLOR][/FONT][/SIZE][/FONT]