Помогте пожалуста, кто знает!

Есть форма на которой 3 вкладки PageFrame, на них выводится информция из таблицы.
Внизу формы ставлю кнопку передвинутся на одну запись, а как обновить информацию на вкладках?
Я использую Refresh, но не выходит.

PROCEDURE Obl_Info
LOCAL lKod_T, lKod_obl
lKod_T = kod_t
lKod_obl = kod_obl
SYS(2002)
FormOblInfo=CREATEOBJECT("Form3", lKod_T, lKod_obl)
FormOblInfo.Show(1)
DEFINE CLASS Form3 as Form
AutoCenter = .T.
Height = 500 &&
Width = 600
ShowWindow = 2
BackColor = RGB(255,250,205)
Icon = 'c:\ProjVFP\MainProj\Bmp\flag_ukraine.ico'
Name = "FORM3"
**********************************************************************************************************************
ADD OBJECT text1 AS textbox WITH ;
Name = "Text1" ,;
ReadOnly = .T.,;
controlsource = "Name_r",;
ColorSource = 2,;
DisabledBackColor = RGB(255,250,205),;
ForeColor = RGB(178,34,34),;
BorderStyle = 0 ,;
Width = 600,;
Height = 30,;
Alignment = 2,;
FontName = 'Courier New',;
FontBold = .T.,;
FontSize = 15
**********************************************************************************************************************
ADD OBJECT text2 AS textbox WITH ;
Name = "Text2",;
ReadOnly = .T.,;
ColorSource = 2,;
DisabledBackColor = RGB(255,250,205),;
ForeColor = RGB(0,139,0),;
BorderStyle = 0,;
Alignment = 2,;
top = 20,;
Width = 600,;
Height = 25,;
FontName = 'Courier New',;
FontItalic = .T.,;
FontBold = .T.,;
FontSize = 12
**********************************************************************************************************************
ADD OBJECT shapeln AS shape WITH ;
Name = "shapeln",;
SpecialEffect = 0,;
top = 50,;
left = 5,;
Width = 590,;
Height = 1
************************************************************************************************************************
ADD OBJECT pageframe1 AS pageframe WITH ;
PageCount = 3,;
Top = 60, ;
Left = 10, ;
Width = 580, ;
Height = 380,;
Tabs = .T., ;
Name = "Pageframe1", ;
Themes = .T.,;
Page1.Caption = "Ñèìâîë³êà", ;
Page1.FontName = 'Courier New',;
Page1.FontBold = .T.,;
Page1.FontSize = 10,;
Page1.ForeColor = RGB(0,0,255),;
Page1.Name = "Page1", ;
Page2.Caption = "Êàðòà", ;
Page2.FontName = 'Courier New',;
Page2.FontBold = .T.,;
Page2.FontSize = 10,;
Page2.ForeColor = RGB(0,0,255),;
Page2.Name = "Page2" ,;
Page3.Caption = "²íôîðìàö³ÿ",;
Page3.FontName = 'Courier New',;
Page3.FontBold = .T.,;
Page3.FontSize = 10,;
Page3.ForeColor = RGB(0,0,255),;
Page3.Name = "Page3"
************************************************************************************************************************
ADD OBJECT CmndBtn2 AS CommandButton WITH ;
FontBold .T.,;
PROCEDURE init
PARAMETERS lKod_T, lKod_obl
* This.text2.value = kod_t
IF SEEK(lKod_T,"Typt")
this.text2.controlsource = "typt.name_t"
ENDIF

With THISFORM.pageframe1
.Page1.AddObject('Image1','image')
With .Page1.Image1
.Top = 80
.Left = 20
.pictureval = prapor
.Visible = .T.
Endwith

.Page1.AddObject('Image2','image')
WITH .Page1.Image2
.PictureVal = gerb
.Left = 320
.Top = 80
.Visible = .T.
ENDWITH

.Page1.AddObject('Label1','Label')
WITH .Page1.Label1
.Caption = 'Ïðàïîð'
.Top = 60
.Left = 120
.Width = 60
.Height = 20
.FontName = 'Arial'
.FontBold = .T.
.FontSize = 12
.ForeColor = RGB(178,34,34)
.BackColor = RGB(255, 255, 255)
.Visible = .T.
.Name = 'Label1'
ENDWITH

.Page1.AddObject('Label2','Label')
WITH .Page1.Label2
.Caption = 'Ãåðá'
.Top = 60
.Left = 410
.Width = 60
.Height = 20
.FontName = 'Arial'
.FontBold = .T.
.FontSize = 12
.ForeColor = RGB(178,34,34)
.BackColor = RGB(255, 255, 255)
.Visible = .T.
.Name = 'Label2'
ENDWITH

.Page2.AddObject('Image3','image')
WITH .Page2.Image3
.Stretch = 1
.pictureval = karta
.Width = 580
.Height = 350
.Visible = .T.
ENDWITH

.Page3.AddObject('Editbox1','EditBox')
WITH .Page3.Editbox1
.ControlSource = 'r_info'
.Width = 580
.Height = 352
* .BackColor = RGB(255,250,205)
.FontName = 'Arial'
.FontBold = .T.
.FontSize = 12
.Visible = .T.
ENDWITH

ENDWITH

PROCEDURE CmndBtn2.Click
SKIP 1
*THISFORM.pageframe1.SetFocus
THISFORM.pageframe1.REFRESH

ENDDEFINE

igorbik,

Не получается , что-то не пойму

Не обновляется вкладка. Дело в втом, что на вкладках я вывожу картинки.
Выдается информация, что достигнут конец файла т.е. таблицу она скипает проходит,
а информацию на вкладке, когда перешла на следующую запись, не обновляет.