Cambiar color de linea

[rositafresita]

Hola a todos, mi duda es como cambiar el color de una linea, para dibujar la línea utilizo el siguiente código en el método down de mi control PictureBox:
If Button = 1 Then
Picture7(0).CurrentX = X
Picture7(0).CurrentY = Y
Picture7(0).Line -(X, Y), Color 'aun no funciona el color
DrawMode = vbNotXorPen
End If
En la variable color he tratado de asignarle los colores con su valor hexadecimal y con las constantes de visual basic pero de ninguna forma me cambia el color de la línea.
Dentro del método mouse move del Picturebox también utilizo la instrucción
Picture7(0).Line -(X, Y), Color pero no funciona
De antemano gracias a quien me pueda ayudar