Mira, si esto es lo que andas buscando:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hace un pause de N milisegundos
Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 100
    DoEvents
    Me.Cls 'Sirve para borrar lo que se haya impreso en el formulario :)
    Me.Line (10, 10)-(100, i), vbBlue
Next i
End Sub
 

Bueno, saludos

Editado: Y bueno, ya que ando de buen humor, jaja mirate este código, genera un muy bonito efecto:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Parar As Boolean
 
Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Parar = False
DeNuevo:
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 5
    DoEvents
    Me.Cls
    Me.Line (10, 10)-(100, i), vbBlue
Next i
For i = 10 To 100
    Sleep 2
    DoEvents
    Me.Cls
    Me.Line (10, 10)-(100, i), vbBlue
Next i
If Parar = False Then
    GoTo DeNuevo
End If
End Sub
 
Private Sub CmdParar_Click()
Parar = True
End Sub
 

jaja saludos !

Cuadra las coordenadas:

    Me.Cls
    Me.Line (10, i - 90)-(100, i), vbBlue
 

El Cls solo sirve para limpiar el form, quitalo... ¿Que pasará? .
y si no queres que se te borren esas dos últimas lineas pués no pongas el Me.cls (Respuesta a la pregunta anterior)
Bueno, jaja estoy algo confuso. no sé que queres decir con eso de las dos últimas lineas.

Saludos!

Lo que pasa con "Me.Line" es que es una impresión en el form, es como si vos cogieras un lápiz y rayaras algunas líneas, y luego utilizas el borrador "Me.Cls" para borrar aquellas líneas. Lo que se puede hacer en este caso es coger un lapicero "Componente Line", e hicieras el trazo con este lapicero, así el borrador no serviría para borrar aquella línea.
Si no queres utilizar este lapicero, podes al final de cada For, trazar la línea con el lápiz xD
Bueno, no sé si me hice entender jaja, acá esta el code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hace un pause de N milisegundos
Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 10
    DoEvents
    Me.Cls 'Sirve para borrar lo que se haya impreso en el formulario :)
    Me.Line (10, i - 90)-(100, i), vbBlue
Next i
Me.Line (10, 100)-(10, 10), vbBlack
End Sub
 

Yo ya tengo sueño , seguramente para mañana te contestan bien, Saludos!

Editado: Como ando aprendiendo a tildar, entonces corregí. xD

se dibuja en el evento paint del formulario...

y se dibuja todo todito todo

   Hola HaDeS y ¡gracias por todo!, eso ultimo era justamente lo que estaba bucando. 

   Xaina... ¡Saludos!