Muestra de Colores

Aquí en esta aplicación tu podrás escoger el color que tu desees y te lo mostrara en un textBox

Private Sub Form_Load()
txtCaja.Top = 0

End Sub


Private Sub optAbajo_Click()
txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height
End Sub

Private Sub optAmarillo_Click()
txtCaja.BackColor = vbYellow
End Sub

Private Sub optArriba_Click()
txtCaja.Top = 0
End Sub

Private Sub optAzul_Click()
txtCaja.BackColor = vbBlue
End Sub

Private Sub optRojo_Click()
txtCaja.BackColor = vbRed
End Sub

Private Sub optVerde_Click()
txtCaja.BackColor = vbGreen

End Sub