FoxPro/Visual FoxPro - codigos

hola amigos.

primero que nada gracias a plinio (por si llegas a leer esto) por la ayuda prestada, me ha sido de mucha ayuda.

ahora necesito unos codigos de los siguientes botones:

Boton Primero: Que me muestre solo el primer registro.

Boton Ultimo: Que me muestre solo el ultimo Registro

Boton Siguiente: Que me vaya mostrando uno por uno cada registro hasta el ultimo.

Boton Anterior: Que e permita ir hacia atras en los registros.

Por favor Help me

Boton Primero: Que me muestre solo el primer registro:

GO TOP

Boton Ultimo: Que me muestre solo el ultimo Registro :

GO BOTTOM

Boton Siguiente: Que me vaya mostrando uno por uno cada registro hasta el ultimo:

SKIP

Boton Anterior: Que me permita ir hacia atras en los registros:

SKIP -1

Botón Primero:

Go Top
Thisform.text1.value=clave
Thisform.text2.Value=nombre
Thisform.text3.Value=apellido

Thisform.cmdprimero.Enabled=.f.
Thisform.cmdanterior.Enabled=.f.
Thisform.cmdsiguiente.Enabled=.t.
Thisform.cmdultimo.Enabled=.t.

Thisform.refresh

*******************************

Boton Anterior:

IF !BOF()
SKIP -1
IF BOF()
WAIT"ES EL PRIMER REGISTRO DEL ARCHIVO " WIND TIME 2
Thisform.cmdprimero.Enabled=.f.
Thisform.cmdanterior.Enabled=.f.
GO TOP
ENDIF
Thisform.text1.Value=clave
Thisform.text2.Value=nombre
Thisform.text3.Value=apellido

Thisform.cmdprimero.Enabled=.t.
Thisform.cmdanterior.Enabled=.t.
Thisform.cmdsiguiente.Enabled=.t.
Thisform.cmdultimo.Enabled=.t.

Thisform.refresh

*********************************************

Botón Siguiente:

IF !EOF()
SKIP + 1
IF EOF()
WAIT"ES EL ULTIMO REGISTRO DEL ARCHIVO " WIND TIME 2
Thisform.cmdultimo.Enabled=.f.
Thisform.cmdsiguiente.Enabled=.f.
GO BOTTOM
ENDIF
Thisform.text1.Value=clave
Thisform.text2.Value=nombre
Thisform.text3.Value=apellido

Thisform.cmdprimero.Enabled=.t.
Thisform.cmdanterior.Enabled=.t.
Thisform.cmdsiguiente.Enabled=.t.
Thisform.cmdultimo.Enabled=.t.

Thisform.refresh

************************************

Botón Ultimo:

Go Bottom
Thisform.text1.Value=clave
Thisform.text2.Value=nombre
Thisform.text3.Value=apellido

Thisform.cmdprimero.Enabled=.t.
Thisform.cmdanterior.Enabled=.t.
Thisform.cmdsiguiente.Enabled=.f.
Thisform.cmdultimo.Enabled=.f.

Thisform.refresh

********************************

Suerte►

ya lo tengo pero que sigue despues de esto
use"d:\programas\visual\alta de empleados.dbf"
locate for thisform.txtclave.value=clave lo que pasa es que yo tengo if founo pero no funciona si es este o es otro