ESTUDIO DEL MENU Y LOS COLORES

Se crea un menú con el editor de menú, como en la figura superior y el formulario como en la figura de debajo.

Introducimos el siguiente código:

Private Sub Form_Load()

HScroll4.Value = Shape1.Width

VScroll1.Value = Shape1.Height

HScroll4.Max = Shape1.Width

VScroll1.Max = Shape1.Height

End Sub

Private Sub HScroll1_Change()

Label4.Caption = HScroll1.Value

Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll2_Change()

Label5.Caption = HScroll2.Value

Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll3_Change()

Label6.Caption = HScroll3.Value

Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll4_Change()

Shape1.Width = HScroll4.Value

End Sub

Private Sub mnuazcl_Click()

Shape1.BackColor = RGB(100, 255, 255)

End Sub

Private Sub mnuazosc_Click()

Shape1.BackColor = vbBlue

End Sub

Private Sub mnucirculo_Click()

Shape1.Shape = 3

End Sub

Private Sub mnucuadrado_Click()

Shape1.Shape = 1

End Sub

Private Sub mnucuadrred_Click()

Shape1.Shape = 5

End Sub

Private Sub mnuovalo_Click()

Shape1.Shape = 2

End Sub

Private Sub mnurectangulo_Click()

Shape1.Shape = 0

End Sub

Private Sub mnurectred_Click()

Shape1.Shape = 4

End Sub

Private Sub mnurojo_Click()

Shape1.BackColor = vbRed

End Sub

Private Sub mnusalir_Click()

Dim retorno As Integer

retorno = MsgBox("¿Quieres salir?", 1, "Salir")

If retorno = 1 Then End

End Sub

Private Sub mnuverde_Click()

Shape1.BackColor = vbGreen

End Sub

Private Sub VScroll1_Change()

Shape1.Height = VScroll1.Value

End Sub