SoloCodigo

Hola,estoy empezando con flash y estoy teniendo algunas dificultades con cosas q creia mas sencillas. Os cuento mi problema:
 tengo un documento en flash en el q tengo un ton y una linea. quiero q al pulsar el boton la linea cambie de color. e buscado por internet y e visto ejemplos de cosas similares pero no e conseguido q a mi me funcione. alguien sabe cual es el codigo mas sencillo para poder hacerlo?
yo tenia puesto el siguiente codigo (luego probe otras cosas sin saber muy bien que eran):

boton.onRelease = function() {
   linea.Color = "0xFF0000";
};

Muchas gracias de antemano!!!!
un saludo

Hola a todos, me pregunto si alguien conoce alguna libreria gratuita para mejorar la interfaz grafica de usuario. He estado buscando y e encontrado una q se llama appface pero esta enfocada a vb. yo estoy utilizando vb.net con el visual studio 2008.
si alguien pudiese ayudarme.
Gracias de antemano y un saludo a todos.

Saludos a todos,
estoy realizando un dibujo en vb.net 2008. Me acabo de encontrar con un problema q no me abia pasado nunca. adjunto el resultado del grafico q intento mostrar, en la imagen. Como podeis observar se corta el dibujo. Sin haber tocado nada ni haber cambiado nada en el codigo, el dibujo a dejado de salirme completo y a pasado a salirme asi. se supone q tendria q salirme igual por la derecha q por la izkierda. os paso el trozo de codigo donde dibujo la imagen. si alguien pudiese decirme porq puede ocurrir esto seria de gran ayuda.
Me funcionaba y me salia el dibujo y de repente ha dejado de hacerlo.

    Dim g As Graphics = Me.CreateGraphics  ' declaro q la zona del grafico es el form
    Dim g2 As Graphics = Me.CreateGraphics

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        g2.Clear(Me.BackColor)      'voy a acer mover la flecha sobre el dibujo cada vez q toke el boton segun lo q ponga en el combobox
        g.Clear(Me.BackColor)       'asi q limpio el grafico
        Dim myPen As New Pen(Color.Black, 1)        'declaro mi pen con forma de flecha
        myPen.StartCap = LineCap.SquareAnchor
        myPen.EndCap = LineCap.ArrowAnchor

        Dim trayecto As New GraphicsPath            'declaro los distintos trayectos
        Dim trayecto2 As New GraphicsPath
        Dim trayecto3 As New GraphicsPath
        Dim trayecto4 As New GraphicsPath
        Dim trama As LinearGradientBrush = New LinearGradientBrush(New Rectangle(100, 10, 200, 95), Color.Green, Color.Red, LinearGradientMode.Vertical)

        ' es la brocha con la que voy a pintar la region que keda entre los dos semielipses


        trayecto.AddArc(New Rectangle(100, 10, 200, 170), 180, 180)
        trayecto2.AddArc(New Rectangle(125, 30, 150, 130), 180, 180)
        trayecto3.AddLine(100, 95, 125, 95)
        trayecto4.AddLine(275, 95, 300, 95)

        Dim RG As New Region(trayecto)
        RG.Exclude(trayecto2)
        g.FillRegion(trama, RG)


        If ComboBox1.Text = "900" Then

            g2.DrawLine(myPen, 200, 95, 134, 64)

        ElseIf ComboBox1.Text = "1000" Then
     
            g2.DrawLine(myPen, 200, 95, 200, 30)

        ElseIf ComboBox1.Text = "1100" Then

            g2.DrawLine(myPen, 200, 95, 266, 64)

        End If

    End Sub

Gracias de antemano.

Un saludo!!!