Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyColors(0) = Color.Red MyColors(1) = Color.White MyColors(2) = Color.Blue End Sub 'Form1_Load