'Button <server connect>'
Sub Button1_Click
server.New1(55355)
server.Start
client.New1
IP_Server=client.GetIP2(server.HostName)
End Sub
'Button <send NMEA>'
Sub Button2_Click
stream.New1(client.GetStream, False)
timer1.Interval=2000
timer1.enabled=true
End Sub
Sub Timer1_Tick
stream.WriteString(NMEA_RMC & NMEA_GGA & CRLF)
End Sub