Har skrivit en funktion för att dynamiskt kunna lägga till nya TextBoxar i runtime.
Problemet är när jag ska ta bort samma TextBoxar, då får jag error: Unable to unload within this context.
Det existerar 4 TextBoxar i formet från början som jag inte vill ta bort eller lägga till...om ni undrar vad checkarna om <4 ska va bra för.
Hur ska jag göra för att kunna unload'a?
Jag har inga andra unloadstatements någonstans som ska vara felet enligt MS.

<code>
Public Sub AddTextArray(Line As String, Dest As String, Dep As String, SubDep As String)
Dim i As Integer
Dim j As Integer

'If ControlIndex = 0 Then ControlIndex = 4 'Räkna antalet kontroller

For i = 0 To 3
If ControlIndex > 3 Then
Load txtBussInfo(ControlIndex)
txtBussInfo(ControlIndex).Top = txtBussInfo(ControlIndex - 4).Top + 270
txtBussInfo(ControlIndex).Left = txtBussInfo(ControlIndex - 4).Left
txtBussInfo(ControlIndex).Width = txtBussInfo(ControlIndex - 4).Width
txtBussInfo(ControlIndex).Visible = True
End If

j = ControlIndex Mod 4
If j = 0 Then
txtBussInfo(ControlIndex).text = Line
ElseIf i = 1 Then
txtBussInfo(ControlIndex).text = Dest
ElseIf j = 2 Then
txtBussInfo(ControlIndex).text = Dep
ElseIf j = 3 Then
txtBussInfo(ControlIndex).text = SubDep
End If
ControlIndex = ControlIndex + 1
Next

End Sub

Public Sub RemoveTextArray()
Dim i As Integer

If ControlIndex < 4 Then Exit Sub

For i = 4 To ControlIndex - 1
Unload txtBussInfo(i)
ControlIndex = ControlIndex - 1
Next

End Sub
</code>

Jag kan inte återskapa ditt fel.

Varför inte använda en listview? Slipper du arbeta mot kontrollarray.

Kan man ställa in olika bredd för kolumnerna och sätta färg på olika celler i en ListView?
Skulle ju i så fall vara en idé att använda kanske.

Ändra kolumbred, sortera på kolumn, ändra förgrundsfärg. Inga problem.
Listviewn klarar det. ;o)