Calculadora y caja de colores vb 8.0

Necitas crea un caja de texto
Una matriz diez botes de comandos para los numero
Otra matriz de cuatro botones de comando para los operadores (+,-,/,*)
Un comando para nueva operacion
Uncomando para el resultado (=)

CODIGO DEL FORMULARIO calculadora

Private Sub Igual_Click()
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)......
Case 0
Text1.Text =suma(anterior, Val(Text1.Text)) 'llamada a la función suma
Case 1
Text1.Text = resta(anterior, Val(Text1.Text))

Case 2
Text1.Text = multiplicar(anterior, Val(Text1.Text))
Case 3Text1.Text = Dividir(anterior, Val(Text1.Text))
End Select
End Sub

Private Sub Nueva_Click()
Text1.Text = ""
End Sub

Private Sub Operador_Click(Index As Integer)
signo = Index 'siindex es 0 sumas, si es 1 restas......
anterior = Val(Text1.Text)
Text1.Text = ""

End Sub

Private Sub Numero_Click(Index As Integer)
Text1.Text = Text1.Text + Numero(Index).Caption
EndSub

Private Function suma(Numero As Integer, Operador As Integer) As Integer
suma = Numero + Operador
End Function

Private Function resta(Numero As Integer, Operador As Integer) AsInteger
resta = Numero - Operador
End Function

Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer
multiplicar = Numero * Operador
End Function

PrivateFunction Dividir(Numero As Integer, Operador As Integer) As Integer
Dividir = Numero / Operador
End Function

Private Sub Salir_Click()
Unload Me
End Sub

Caja de colores
No se a que terefieres, pero esto te servira:
PictureBox1.ImageLocation = ("apenas empezamos")
MenuStrip1.BackColor = Color.DeepSkyBlue
MenuStrip1.ForeColor = Color.BlackMy.Forms.Form3.Imagenfondo1.ImageLocation = ("hola")
My.Forms.Form3.GroupBox1.BackColor = Color.DeepSkyBlue

My.Forms.Form4.MenuStrip1.BackColor = Color.DeepSkyBlue
My.Forms.Form5.MenuStrip1.BackColor = Color.DeepSkyBlue...