Hello, how i can make this code shorter:
Code:
Dim reminderday As Integer = 13

Select Case reminderday
                    Case 1
                        D1.BackgroundImage = My.Resources.Reminder
                        Label1.ForeColor = Color.Yellow
                    Case 2
                        D2.BackgroundImage = My.Resources.Reminder
                        Label2.ForeColor = Color.Yellow
                    Case 3
                        D3.BackgroundImage = My.Resources.Reminder
                        Label3.ForeColor = Color.Yellow
                    Case 4
                        D4.BackgroundImage = My.Resources.Reminder
                        Label4.ForeColor = Color.Yellow
                    Case 5
                        D5.BackgroundImage = My.Resources.Reminder
                        Label5.ForeColor = Color.Yellow
                    Case 6
                        D6.BackgroundImage = My.Resources.Reminder
                        Label6.ForeColor = Color.Yellow
                    Case 7
                        D7.BackgroundImage = My.Resources.Reminder
                        Label7.ForeColor = Color.Yellow
                    Case 8
                        D8.BackgroundImage = My.Resources.Reminder
                        Label8.ForeColor = Color.Yellow
                    Case 9
                        D9.BackgroundImage = My.Resources.Reminder
                        Label9.ForeColor = Color.Yellow
                    Case 10
                        D10.BackgroundImage = My.Resources.Reminder
                        Label10.ForeColor = Color.Yellow
                    Case 11
                        D11.BackgroundImage = My.Resources.Reminder
                        Label11.ForeColor = Color.Yellow
                    Case 12
                        D12.BackgroundImage = My.Resources.Reminder
                        Label12.ForeColor = Color.Yellow
                    Case 13
                        D13.BackgroundImage = My.Resources.Reminder
                        Label13.ForeColor = Color.Yellow
                    Case 14
                        D14.BackgroundImage = My.Resources.Reminder
                        Label14.ForeColor = Color.Yellow
                    Case 15
                        D15.BackgroundImage = My.Resources.Reminder
                        Label15.ForeColor = Color.Yellow
                    Case 16
                        D16.BackgroundImage = My.Resources.Reminder
                        Label16.ForeColor = Color.Yellow
                    Case 17
                        D17.BackgroundImage = My.Resources.Reminder
                        Label17.ForeColor = Color.Yellow
                    Case 18
                        D18.BackgroundImage = My.Resources.Reminder
                        Label18.ForeColor = Color.Yellow
                    Case 19
                        D19.BackgroundImage = My.Resources.Reminder
                        Label19.ForeColor = Color.Yellow
                    Case 20
                        D20.BackgroundImage = My.Resources.Reminder
                        Label20.ForeColor = Color.Yellow
                    Case 21
                        D21.BackgroundImage = My.Resources.Reminder
                        Label21.ForeColor = Color.Yellow
                    Case 22
                        D22.BackgroundImage = My.Resources.Reminder
                        Label22.ForeColor = Color.Yellow
                    Case 23
                        D23.BackgroundImage = My.Resources.Reminder
                        Label23.ForeColor = Color.Yellow
                    Case 24
                        D24.BackgroundImage = My.Resources.Reminder
                        Label24.ForeColor = Color.Yellow
                    Case 25
                        D25.BackgroundImage = My.Resources.Reminder
                        Label25.ForeColor = Color.Yellow
                    Case 26
                        D26.BackgroundImage = My.Resources.Reminder
                        Label26.ForeColor = Color.Yellow
                    Case 27
                        D27.BackgroundImage = My.Resources.Reminder
                        Label27.ForeColor = Color.Yellow
                    Case 28
                        D28.BackgroundImage = My.Resources.Reminder
                        Label28.ForeColor = Color.Yellow
                    Case 29
                        D29.BackgroundImage = My.Resources.Reminder
                        Label29.ForeColor = Color.Yellow
                    Case 30
                        D30.BackgroundImage = My.Resources.Reminder
                        Label30.ForeColor = Color.Yellow
                End Select
I tried this:
Code:
D & reminderday.BackgroundImage = My.Resources.Reminder
But this not worked. ;/
Maybe i should to somehow make an array list of all 30 Picture boxes?