det är lite för svårt för mig så jag hoppas att ni kan lösa det här åt mig.
alltså.. jag undrar hur man gör så att man kan slumpa fram något ur en combobox.

i Form_Load
Randomize

i en Sub
Dim cbRnd As Long
Dim cbLCount As Long
cbLCount = Combo1.ListCount
cbRnd = Int(Rnd * cbLCount )
MsgBox Combo1.List(cbRnd)

tack det funkar precis som jag hade tänkt mig.