Oh yeah, here is the lContainer_Resize() event. (lContainer is the variable I declared in the general declarations section)
Private Sub lContainer_Resize()
On Error Resume Next
lContainer.ScaleWidth = ErrorTypes.PBox.Width
lIDLabel.Move 0, 0
lIDLabel.AutoSize = True
lIDTextbox.Move lIDLabel.Left + lIDLabel.Width, lIDLabel.Top, lContainer.ScaleWidth / 3 - lIDLabel.Width, 200
lUserLabel.Move lContainer.ScaleWidth / 3, lIDLabel.Top, 500, 200
lUserTextbox.Move lUserLabel.Left + lUserLabel.Width, lUserLabel.Top, lContainer.ScaleWidth / 3 - lUserLabel.Width, 200
lDateLabel.Move lContainer.ScaleWidth * 2 / 3, lUserLabel.Top, 500, 200
lDateTextbox.Move lDateLabel.Left + lDateLabel.Width, lDateLabel.Top, lContainer.ScaleWidth / 3 - lDateLabel.Width, 200
lTypeLabel.Move lIDLabel.Left, lUserTextbox.Top + lUserTextbox.Height + 75, 500, 200
lTypeTextbox.Move lTypeLabel.Left + lTypeLabel.Width, lTypeLabel.Top - 25, lContainer.ScaleWidth - lTypeLabel.Width - 100, 200
lDescriptionLabel.Move lTypeLabel.Left, lTypeTextbox.Top + lTypeTextbox.Height + 75, 500, 200
lDescriptionTextbox.Move lDescriptionLabel.Left + lDescriptionLabel.Width, lDescriptionLabel.Top - 25, lContainer.ScaleWidth - lDescriptionLabel.Width - 100 ', ((ErrorTypes.Form.TextWidth(mvarDescription) \ lDescriptionTextbox.Width) + 1) * ErrorTypes.Form.TextHeight(mvarDescription) + 150 ', 200 ', lTypeTextbox.Height * 2 - 100
LineCount = SendMessage(lDescriptionTextbox.hwnd, &HBA, 0, ByVal 0&)
lDescriptionTextbox.Height = LineCount * ErrorTypes.Form.TextHeight("Zy") + 150
lContainer.Height = lDescriptionTextbox.Top + lDescriptionTextbox.Height + 50
mvarHeight = lContainer.Height
End Sub
Now, you may want to look into control arrays. I'm not sure if you can declare something like this
Private WithEvents lContainer() as PictureBox
and have it result in the variable equivalent of a control array.