Adding Listbox checks with code

[SQUIDD]

Hi All

Me again.

I am trying to check and uncheck items in a listbox.

LISTBOX is LB1

Say i wanted to tick index 3.

LB1.List(Me.LB1.ListIndex).SELECTED = TRUE

I cant get the syntex correct

Thanks again

dave

 

[DanteAmor]

Try:

Private Sub CommandButton1_Click()
  LB1.Selected(3) = True        'to check
End Sub

Private Sub CommandButton2_Click()
  LB1.Selected(3) = False       'to uncheck
End Sub

 

[SQUIDD]

Try:

Private Sub CommandButton1_Click()
  LB1.Selected(3) = True        'to check
End Sub

Private Sub CommandButton2_Click()
  LB1.Selected(3) = False       'to uncheck
End Sub

Perfect, worked spot on. Thankyou very much.

Dave