Public Function RTICK() As robo
      RTICK.frc(0) = RTICK.frc(0) - 0.007
      RTICK.frc((1)) = RTICK.frc(1) - 0.007
      RTICK.frc(2) = RTICK.frc(2) + 0.007
      If r.frc(2) > 0.8 Then
        RTICK.frc(0) = 0.8
        RTICK.frc(1) = 0.8
        RTICK.frc(2) = -0.8
      End If
End Function

Private Type fvec
      x As Single: y As Single
End Type
Private Type robo
      pos(2)  As fvec
      spd(2) As fvec
      frc(2) As Single
End Type

Dim r As robo

Public Function RTICK()
      r.frc(0) = r.frc(0) - 0.007
      r.frc((1)) = r.frc(1) - 0.007
      r.frc(2) = r.frc(2) + 0.007
      If r.frc(2) > 0.8 Then
        r.frc(0) = 0.8
        r.frc(1) = 0.8
        r.frc(2) = -0.8
      End If
End Function