ｖｂ设计的两个标签碰撞问题，怎样区分两种接触条件

[GGS_521]

Dim j, i, m, n As Integer

Private Sub Form_Load()
i = 1
j = 1
m = 1
n = 1


End Sub


Private Sub Timer1_Timer()
If (Label1.Left = 0) Then '控制label1左方边界
i = i * -1
End If
If (Label1.Left + 1.1 * Label1.Width >= Form1.Width) Then '控制label1右方边界
i = i * -1
End If
If (Label1.Top = 0) Then '控制label1上方边界
j = j * -1
End If
If (Label1.Top + 2 * Label1.Height >= Form1.Height) Then '控制label1下方边界
j = j * -1
End If
If (Label2.Left = 0) Then '控制label2左方边界
m = m * -1
End If
If (Label2.Left + 1.1 * Label2.Width >= Form1.Width) Then '控制label2右方边界
m = m * -1
End If
If (Label2.Top = 0) Then '控制label2上方边界
n = n * -1
End If
If (Label2.Top + 2 * Label2.Height >= Form1.Height) Then '控制label2下方边界
n = n * -1
End If
If (Abs(Label1.Left - Label2.Left) <= (Abs(Label1.Width)) And Abs(Label1.Top - Label2.Top) < Abs(Label1.Height)) Then '控制两标签左右边界相撞的情况
i = i * -1
m = m * -1
End If
If (Abs(Label1.Left - Label2.Left) < Abs(Label1.Width) And Abs(Label1.Top - Label2.Top) <= (Abs(Label1.Height))) Then '控制两标签上下边界相撞的情况
j = j * -1
n = n * -1


End If


Label1.Left = Label1.Left + 40 * i
Label1.Top = Label1.Top + 40 * j
Label2.Left = Label2.Left - 30 * m
Label2.Top = Label2.Top - 40 * n

End Sub
我设计的两标签碰撞分两种情况，如果左右边界碰撞，则只改变各自的左右方向的速度，而上下运动方向不变，如果上下边界碰撞，则只改变各自的上下运动方向，左右不变。问题在于这两种的情况区分条件很相近，无法区分，所以碰撞后两个运动方向都改变了。请高手指点一下，该如何写区分条件。

[神马被哪个妞占用了呢]

Dim j, i, m, n As Integer

Private Sub Form_Load()
i = 1
j = 1
m = 1
n = 1
Text1.Width = Text2.Width
Text1.Height = Text2.Height

End Sub


Private Sub Timer1_Timer()
If (Text1.Left <= 0) Then '控制text1左方边界
i = i * -1
End If
If (Text1.Left + 1.1 * Text1.Width >= Form1.Width) Then '控制text1右方边界
i = i * -1
End If
If (Text1.Top <= 0) Then '控制text1上方边界
j = j * -1
End If
If (Text1.Top + 2 * Text1.Height >= Form1.Height) Then '控制text1下方边界
j = j * -1
End If
If (Text2.Left <= 0) Then '控制text2左方边界
m = m * -1
End If
If (Text2.Left + 1.1 * Text2.Width >= Form1.Width) Then '控制text2右方边界
m = m * -1
End If
If (Text2.Top <= 0) Then '控制text2上方边界
n = n * -1
End If
If (Text2.Top + 2 * Text2.Height >= Form1.Height) Then '控制text2下方边界
n = n * -1
End If

If Abs(Text1.Top - Text2.Top) <= Abs(Text1.Height) + 50 Then
    If Abs(Text1.Left - Text2.Left) <= Abs(Text1.Width) Then
    j = j * -1
    n = n * -1
    GoTo Move
    End If
End If
If Abs(Text1.Left - Text2.Left) <= Abs(Text1.Width) + 50 Then
    If Abs(Text1.Top - Text2.Top) <= Abs(Text1.Height) Then
    i = i * -1
    m = m * -1
    End If
End If

Move:
Text1.Left = Text1.Left + 40 * i
Text1.Top = Text1.Top + 40 * j
Text2.Left = Text2.Left - 40 * m
Text2.Top = Text2.Top - 40 * n

End Sub

试试这个。

[GGS_521]

可以了，我刚开始想到这个方法了，但只是在后面加了个1，最后改成+0.05*label1.width,也可以实现了。请问这里面的50是指50个像素吗？