Sub btnTimeSet_Click
Dim BC As ByteConverter
Dim Ftime As Float
Dim Stime As Short
Dim conf(256) as Byte
Ftime = Round2(etTime.Text,3)
Ftime = (Ftime + 0.012)*40
Stime = Floor(Ftime)
Dim gxx() As Byte = BC.ShortsToBytes(Array As Short(Stime))
conf(4) = gxx(1)
conf(5) = gxx(0)
End Sub