CREACION DEL MENU

Private Sub menu_cuadrado_Click()
FIG.Shape = square
menu_cuadrado.Checked = True
menu_circulo.Checked = False
End Sub

Private Sub menu_delgado_Click()
FIG.BorderWidth = 1
menu_delgado.Checked = True
menu_grueso.Checked = False
End Sub

Private Sub menu_grueso_Click()
FIG.BorderWidth = 20
menu_grueso.Checked = True
menu_delgado.Checked = False
End Sub

Private Sub menu_ovalo_Click()
FIG.Shape = oval
menu_cuadrado.Checked = False
menu_ovalo.Checked = True
End Sub


Private Sub menu_salir_Click()
End
End Sub