Servo motor does not work correct

[cesar35]

Hello thank you guys for the help.
Here is the data I'm sending to the pic
With vb.net
I control the camera using servo motor for movement

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
pos = CInt(TrackBar1.Value)
Label8.Text = pos
SerialPort1.Write("PC")
SerialPort1.Write("X")
SerialPort1.Write(pos)

'POS MAX 2300
'POS MIN 7000
End Sub