[/
With GPSObject.RTK_Base
.StopBase()
'If .IsRecordRAWDataAvailable And RecordRawDataInRTK Then .RecordRAWData = True Else .RecordRAWData = False
.ElevetionMask = ElevationMask
.Site_ID = SiteID
.SetBaseComunication(GPS_Structure.RTK_CommunicatioTypeEnum.InternalUHF)
With .InternalUHF
.Disconnect()
.TransmitterPower = UHFPowerMode
'.RadioMode = UHFRadioMode
.Channel = UHFChannel
.RTKCorrectionType = RTKCorrectionType
.Connect()
End With
.SetBasePosition(Latitude, Longitude, Elev)
.StartBase()
End With
]