¿Cómo implementar una línea vertical vb que siga el movimiento del mouse?

Te refieres a dibujar una línea directa que siga el movimiento del mouse, ¿verdad? Copie el código y visualícelo. Haga doble clic con el mouse para cambiar si aparecen las líneas auxiliares.

Dim?HasLine?As?Boolean

Dim?oldX

Dim?oldT?As?Single,?oldB?As?Single

¿Privado?Sub?DrawLine(X?As?Single)

Si?No?IsEmpty(oldX)?Entonces?Me.Line?(oldX，?0)-(oldX，?oldB)， ?vbRed：?oldX?=?Empty

Si?HasLine?Then

oldB?=?Me.ScaleHeight

Me.Line?(X,? 0)-(X,?oldB),?vbRed

oldX?=?X

Fin?Si

Fin?Sub

¿Privado?Sub?Form_DblClick()

HasLine?=?Not?HasLine

Fin?Sub

Privado?Sub?Form_Load()

Me.AutoRedraw?=?True

Me.DrawMode?=?vbNotXorPen

Fin?Sub

Privado?Sub?Form_DblClick()

HasLine?=? p>

Privado?Sub?Form_MouseMove(Botón?As?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single )

DibujarLínea?X

¿Fin?