Kan jag lägga till undermenyer i körläge och hur?

Här ser du hur jag hämtar värden ur en databas och skapar menyalternativ av dessa:

<code>
Dim rstUser As ADODB.Recordset
Set rstUser = New ADODB.Recordset
Dim intI As Integer

For intI = 1 To mnuLonUsers.UBound
Unload mnuLonUsers(intI)
Next

With rstUser
.Open "SELECT ID, lngNr, strNamn FROM tblUsers ORDER BY lngSort", con, adOpenStatic, adLockReadOnly
If .RecordCount > 0 Then
ReDim arrUsers(.RecordCount)
arrUsers(0) = .Fields("ID")
mnuLonUsers(0).Caption = .Fields("lngNr") & " " & .Fields("strNamn")
.MoveNext
For intI = 1 To .RecordCount - 1
arrUsers(intI) = .Fields("ID")
Load mnuLonUsers(intI)
mnuLonUsers(intI).Caption = .Fields("lngNr") & " " & .Fields("strNamn")
.MoveNext
Next
End If
.Close
End With
Set rstUser = Nothing
</code>

/Johan

Ja det går bra.Du skall alltid då ha Index på menyerna och det skall alltid finnas en MinMeny(0)

Sen kan du bara göra Load MinMeny(1) Load MinMeny(2) osv
Du kan också göra Unload MinMeny(5) osv. Då får inte ta bort MinMeny(0)

Load MinMeny(3)
MinMeny(3).Caption = "Test 3"