Visual Basic - Cambiar color del label

Option Explicit

Private Sub Form_Load()

    With Label1

        ' -- Estilo transparente

        .BackStyle = 0

        ' -- Ajustar el control al texto

        .AutoSize = True

        ' --  Asignamos un texto para la dirección url

        .Caption = " http://www.google.com "

    End With

End Sub

'Cuando se mueva en el formulario el puntero quedara en forma normal el label

Private Sub Form_MouseMove( _

    Button As Integer, _

    Shift As Integer, _

    X As Single, Y As Single)

   With Label1

        If .FontUnderline Then

            ' -- Color de la fuente del Label en negro

            .ForeColor = vbBlack

            ' Quitamos el Subrayamos al Label

            .FontUnderline = False

        End If

    End With

End Sub

'Cuando se mueva en el label el puntero el label quedara con el formato que le des

Private Sub Label1_MouseMove( _

    Button As Integer, _

    Shift As Integer, _

    X As Single, Y As Single)

   With Label1

        If Not .FontUnderline Then

            ' --  Color Azul como el de los enlaces clásicos

            .ForeColor = QBColor(9)

            ' -- Subrayamos el Label

            .FontUnderline = True

        End If

   End With

End Sub