reading the combo list

[manavo11]

Private Sub Form_Load()
 Randomize Timer
 lblrandom.Caption = Int(Rnd * 3)
 lbltemp.Caption = Combo1.List(lblrandom.Caption)
End Sub

I have this code and I have loaded into combo1 a textfile.But this doesn't get anything into lbltemp.caption.Any ideas?I know it has 4 entries so I put 3.Can I generalize it by multiptying by como1.listcount or something?

Thanks in advance

[plenderj]

Private Sub Form_Load()
    '' fill with some values
    ''
    Dim i As Long: For i = 0 To 4: Combo1.AddItem i: Next
    
    '' now select a random entry
    ''
    Randomize
    Combo1.Text = Combo1.List(Combo1.ListCount * Rnd)
End Sub

[manavo11]

I can't get it!If I put your code under a command button it works.If I have it under the form load, it doesn't work. If I "call" the command1_click in the form_load it doesn't work again! Any other ideas???