A sintaxe seria assim:

object.Line [[Step](x1, y1)] [Step](x2, y2)[, [color][, B[F]]]

x1     Single necessário. O valor que indica a coordenada do ponto inicial da linha ou retângulo. As propriedades de escala (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight e ScaleWidth) do objeto Report especificado pelo argumento object    determinam a unidade de medida usada. Se esse argumento for omitido, a linha começará na posição indicada pela propriedade CurrentX.

y1     Single necessário. O valor que indica a coordenada do ponto inicial da linha ou retângulo. As propriedades de escala (ScaleMode, ScaleLeft,ScaleTop, ScaleHeight e ScaleWidth) do objeto Report especificado pelo argumento object    determinam a unidade de medida usada. Se esse argumento for omitido, a linha começará na posição indicada pela propriedade CurrentY.

x2     Single necessário. O valor que indica a coordenada do ponto final da linha a ser desenhada. Esse argumento é necessário.

y2     Single necessário. O valor que indica a coordenada do ponto final da linha a ser desenhada. Esse argumento é necessário.

color     Long necessário. O valor que indica a cor RGB (vermelho-verde-azul) usado para desenhar a linha. Se esse argumento for omitido, o valor da propriedade ForeColor será usado. Você também pode usar a função RGB ou QBColor para especificar a cor.

Step     Palavra-chave  que indica as coordenadas do ponto final ou inicial. No caso representado pelo sinal "-"

---------------------------------------------------------------------------

Uso da Função QBColor:

Dim Cor as Integer

Cor = QBColor(4) 'Vermelho

-----------------------------------------------------------------------------

Na verdade X2 e Y2 não são necessários caso vc indique o step na primeira coordenada:

me.line -(1000,2000)

Só q no caso ele vai interpretar como pto inicial a coordenada (0,0).

blz??

t+