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