VB6.0，我想做一个类似于指纹识别的东西，现在我只想知道如何才可以使Line在一定区域内来上下动

Question

Line是VB6.0的控件，是一根线。

Answer 1

Private Sub Command1_Click()
Timer1.Interval = 50
Timer1.Enabled = True
Line1.Visible = True
End Sub
Private Sub Form_Load()
Line1.Y1 = 1000 '起始纵坐标
Line1.Y2 = 1000
Line1.X1 = 1500 '起点横坐标
Line1.X2 = 3000 '终点横坐标
End Sub
Private Sub Timer1_Timer()
Static Flag As Double '方向控制
With Line1
If .Y1 > 2000 Then Flag = -2 '如果大于 2000 则让坐标减小
If .Y1 < 1000 Then Flag = 0 '如果小于 1000 则让坐标增加
.Y1 = .Y1 + 15 * (Flag + 1) '(flag+1)为方向控制，因为flag初始值为0
.Y2 = .Y1 '所以+1可以不用判断是否为初始值 0
End With
End Sub