Public Class standingForm Private thisConf As Conference Dim label1 As New Label Dim label2 As New Label Dim label3 As New Label Dim label4 As New Label Dim label5 As New Label Dim label6 As New Label Dim label7 As New Label Dim label8 As New Label Dim label9 As New Label Dim label10 As New Label Dim label11 As New Label Dim label12 As New Label Dim label13 As New Label Dim label14 As New Label Dim label15 As New Label Dim label16 As New Label Dim label17 As New Label Dim label18 As New Label Dim label19 As New Label Dim label20 As New Label Dim label21 As New Label Dim label22 As New Label Dim label23 As New Label Dim label24 As New Label Dim label25 As New Label Dim label26 As New Label Dim label27 As New Label Dim label28 As New Label Dim label29 As New Label Dim label30 As New Label Dim label31 As New Label Dim label32 As New Label Dim label33 As New Label Dim label34 As New Label Dim label35 As New Label Dim label36 As New Label Dim label37 As New Label Dim label38 As New Label Dim label39 As New Label Dim label40 As New Label Dim label41 As New Label Dim label42 As New Label Dim label43 As New Label Dim label44 As New Label Dim label45 As New Label Dim label46 As New Label Dim label47 As New Label Dim label48 As New Label Dim label49 As New Label Dim label50 As New Label Dim label51 As New Label Dim label52 As New Label Dim label53 As New Label Dim label54 As New Label Dim label55 As New Label Dim label56 As New Label Dim label57 As New Label Dim label58 As New Label Dim label59 As New Label Dim label60 As New Label Dim label61 As New Label Dim label62 As New Label Dim label63 As New Label Dim label64 As New Label Dim label65 As New Label Dim label66 As New Label Dim label67 As New Label Dim label68 As New Label Dim label69 As New Label Dim label70 As New Label Dim label71 As New Label Dim label72 As New Label Dim label73 As New Label Dim label74 As New Label Dim label75 As New Label Dim label76 As New Label Dim label77 As New Label Dim label78 As New Label Dim label79 As New Label Dim label80 As New Label Dim label81 As New Label Dim label82 As New Label Dim label83 As New Label Dim label84 As New Label Dim label85 As New Label Dim label86 As New Label Dim label87 As New Label Dim label88 As New Label Dim label89 As New Label Dim label90 As New Label Dim label91 As New Label Dim label92 As New Label Dim label93 As New Label Dim label94 As New Label Dim label95 As New Label Dim label96 As New Label Dim label97 As New Label Dim label98 As New Label Dim label99 As New Label Dim label100 As New Label 'Yes I know not good code, but not the issuse Dim teamLblCtr() As Label = {label1, label6, label11, label16, label21, label26, label31, label36, _ label41, label46, label51, label56, label61, label66, label71, label76, _ label81, label86, label91, label96} Dim confWinsLblCtr() As Label = {label2, label7, label12, label17, label22, label27, label32, label37, _ label42, label47, label52, label57, label62, label67, label72, label77, _ label82, label87, label92, label97} Dim confLossesLblCtr() As Label = {label3, label8, label13, label18, label23, label28, label33, label38, _ label43, label48, label53, label58, label63, label68, label73, label78, _ label83, label88, label93, label98} Dim allWinsLblCtr() As Label = {label4, label9, label14, label19, label24, label29, label34, label39, _ label44, label49, label54, label59, label64, label69, label74, label79, _ label84, label89, label94, label99} Dim allLossLblCtr() As Label = {label5, label10, label15, label20, label25, label30, label35, label40, _ label45, label50, label55, label60, label65, label70, label75, label80, _ label85, label90, label95, label100} Public Sub New(ByVal conf As Conference) ' This call is required by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. thisConf = conf End Sub Private Sub standingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load confName.Text = thisConf.Name Dim i As Integer = 0 For Each element In thisConf.Members teamLblCtr(i).Text = element.Name confWinsLblCtr(i).Text = element.Schedule.ConferenceWins.ToString confLossesLblCtr(i).Text = element.Schedule.ConferenceLosses.ToString allWinsLblCtr(i).Text = element.Schedule.Wins.ToString allLossLblCtr(i).Text = element.Schedule.Losses.ToString If i = 0 Then teamLblCtr(i).Location = New Point(45, 95) confWinsLblCtr(i).Location = New Point(130, 95) confLossesLblCtr(i).Location = New Point(190, 95) allWinsLblCtr(i).Location = New Point(260, 95) allLossLblCtr(i).Location = New Point(310, 95) Else teamLblCtr(i).Location = New Point(45, teamLblCtr(i - 1).Location.Y + 25) confWinsLblCtr(i).Location = New Point(130, confWinsLblCtr(i - 1).Location.Y + 25) confLossesLblCtr(i).Location = New Point(190, confLossesLblCtr(i - 1).Location.Y + 25) allWinsLblCtr(i).Location = New Point(260, allWinsLblCtr(i - 1).Location.Y + 25) allLossLblCtr(i).Location = New Point(310, allLossLblCtr(i - 1).Location.Y + 25) End If Me.Controls.Add(teamLblCtr(i)) Me.Controls.Add(confWinsLblCtr(i)) Me.Controls.Add(confLossesLblCtr(i)) Me.Controls.Add(allWinsLblCtr(i)) Me.Controls.Add(allLossLblCtr(i)) i += 1 Next element End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Show() Me.Hide() End Sub End Class
This program should pull data from elsewhere, stick it in the labels and show them.
The label for teamLblCtr shows up, but none of the other labels do. The data is in the text property and visible is set to true, but the label either are not making it to the form or somehow getting covered or hidden. I cannot figure out the difference and why the one array works but the others don't. Thank you in advance.