Olaaaaaa

Código Posiciones y colores

Public Class Form1

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbdverde.CheckedChangedlbltext.BackColor = Color.Green
End Sub

Private Sub rbdrojo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbdrojo.CheckedChangedlbltext.BackColor = Color.Red
End Sub

Private Sub gpbcolores_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gpbcolores.Enter

End Sub

Private SubForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End SubPrivate Sub rbdamarillo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbdamarillo.CheckedChanged
lbltext.BackColor = Color.Yellow
End SubPrivate Sub lbltext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbltext.TextChanged

End Sub

Private Sub rbdazul_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles rbdazul.CheckedChanged
lbltext.BackColor = Color.Blue
End Sub

Private Sub rbdarriba_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles rbdarriba.CheckedChanged
lbltext.Top = 0
End Sub

Private Sub rbdabajo_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles rbdabajo.CheckedChanged
lbltext.Top = Me.Height - (lbltext.Height * 2.5)
End Sub
End Class

Código Combinaciones de Colores


Public Class frmRGB

PrivateSub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gpbOpcion.Enter

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As...