I haven't written anything like that. I just have a couple theories in my head about how I would approach the problem. Storing the text seperate from the formatting gives you quick access to the formatting itself. Pointers between text segments and existing formatting objects in a collection would allow for reuse of the same formatting object to control the formatting of several segments of text. Dave Kreskowiak Microsoft MVP - Visual Basic

Looping is easy, the problem I think you'll encounter is not adding more than one label but determining how many too add. Modifying the code above slightly to demonstrate the loop - Dim MyLabel As Label 'declare at modular level 'pass the value of the number of labels you'll need to 'the CreateLabels sub Private Sub CreateLabels(ByVal NumberOfLabels as Integer) Dim i As Integer Do Until i = NumberOfLabels 'create a new instance of a label MyLabel = New Label 'add formatting, positioning, event handlers, etc. here Me.PanelL.Controls.Add(MyLabel) 'add the label to the panel i += 1 'increment i so as to avoid an infinite loop Loop End Sub

I figured out what works best for me. Turning off the docking features completely messed up everything that was going on with resizing the window, so I used the approach of decreasing width. To deal with the items inside, I used the Controls array that contains every object in a panel to adjust the width. Heres the code: For intIndex = 0 to Me. Controls(panel).Controls.Count - 1 Me.Controls(panel).Controls(intIndex).left = Me.Controls(panel).Controls(intIndex).left - operation next intIndex With this, operation is set to positive or negative 1, depending on if i'd like to show or hide the item. panel is set to the number that corresponds to the panel. I really don't know how to determine besides trial and error (or trial and messagebox). Thanks again, BAM

If you absolutely have to store your commands in the Caption property of your checkboxes, you could do something like this: For i = 1 To Check1().UBound + 1 Debug.Print Check1(i - 1).Caption & ":" & CStr(Check1(i - 1).Value) If Check1(i -1).Value = 1 Then commandLine = "net send " & Check1(i - 1).Caption End If Next

Ray Cassick wrote: sendString = "net send dell" & varData You need to specify a space here :) "dell " Your friendly neighbourhood typo police! Notorious SMC The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning Mark Twain Get your facts first, and then you can distort them as much as you please Mark Twain