If the additem method is used you can set listbox pointers with the value property.

public MyForm
MyForm=createobject('subForm')
With MyForm
for c=1 to 12 && Populate List Box With Months
lcMonth=left(upper(cmonth(date(2000,c,1)))+space(20),20)
.LLB.Additem(lcMonth)
.RLB.AddItem(lcMonth)
endfor
store .t. to .LLB.Visible,.RLB.Visible
store 150 to .LLB.Width,.RLB.Width
.Show()
endwith 

define class subForm as Form
Autocenter=.t.
Add Object LLB as ListBox
Add Object RLB as ListBox
RLB.Left=200
procedure LLB.InterActiveChange
LBIAChange('MyForm.LLB','MyForm.RLB')
endproc
procedure RLB.InterActiveChange
LBIAChange('MyForm.RLB','MyForm.LLB')
endproc
enddef

procedure LBIAChange(ReadValue,SetValue)
&SetValue..Value=&ReadValue..Value
endproc

>(snipped a mass of wasted codes)
>INSERT INTO AuthType (AuthType) VALUES (m.at)
>ThisForm.List1.Requery()
>SEEK(m.at)
>ThisForm.List1.Value = m.at
>ThisForm.List1.SetFocus()
>ThisForm.Refresh
>
>I finally called MS Tech Support (g). This is what they solved for me. Now, it is working great. I have a listbox sample he send to me (two files of one form in one zip, 2K, thats all). He made it so easy, man! :-) If you like this sample, I am willing to attach to email for you, only if you ask for it (yeah, I think it's without a virus (g)).
>
>Chuck