En la programación VB, el color de fondo de PictureBox cambia

Atenuar C mientras

Sub Form_MouseMove privado (botón como entero, cambio como entero, X como único, Y como único)

If Picture1.BackColor lt ;gt; C Luego Imagen1.BackColor = C

End Sub

Subimagen privada1_Click()

Imagen1.BackColor = QBColor(5)

C = Imagen1.BackColor

End Sub

Sub imagen privada1_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

Imagen1.BackColor = QBColor(10)

Fin Sub