Código fuente para programar de la forma mas sencilla un odontograma en Visual Basic.

Bueno pues después de probar de muchos y ensayos y tratando de obtener un código muy efectivo para programar el formulario en obtenido este código.


en este  ejemplo utilice una matriz de labels y dos commandbutton

Private Sub Form_Load()

Public a As String 'declaramos una variable global
Private Sub Command1_Click(Index As Integer)
a = Command1(Index).BackColor 'en esa variable guardamos el color
End Sub
Private Sub Form_Load()
a = vbWhite ' para que la variable no quede conm valor nulo
End Sub
Private Sub Label1_Click(Index As Integer)
Label1(Index).Caption = a 'aqui le decimos que ponga en el caption en texto el color esto es para poder guardarlo en la base de datos
Label1(Index).BackColor = a 'pongale el color que esta en la variable "a"
Label1(Index).ForeColor = a 'para que el caption no se vea
End Sub
End Sub 

Despues de esto solo es cuestión de vincular cada label a un campo en una  base de datos


Descarga el ejemplo