txt y coordenadas en vb6

[essolo]

Hola:
ya he logrado darle color a cada block:
al detectar mas de una coordenadas comensaria a dibujar lineas
If CONT = 2 Then
pic.Line (xA, yA)-(x, y), vbBlue
Lo que hice fue hacer un function linea () y dentro coloque un select case con 20 opsiones
Select Case I
Case 1
Picture1.Line (xA, yA)-(x, y), vbWhite
y que correspondan segun el valor de I:
If Trim(DATA) = "block " & I Then
.....
.....
.....
If CONT = 2 Then
linea
aqui en el function linea he colocado el select case, hasta aqui todo va funcionando bien.
Pero tengo un inconveniente:
en esta linea:
pic.Line (xA, yA)-(x, y), vbBlue
como cambio el valor de , vbBlue, en tiempo de ejecucion, esto se puede?, como podria ser esto?
nuevamente agradezco de antemano cualquier informacion que puedan proporcionarme.
Saludos.