Kezman
03-27-2001, 05:37 AM
Private Sub tmrEnemy_Timer()
If Start = 1 Then
imgEnemy.Left = imgEnemy.Left + 100 * Rnd
If imgEnemy.Left >= 6350 Then
imgEnemy.Left = 6350
End If
If imgEnemy.Left = 6350 Then
tmrEnemy.Enabled = False
tmrEnemy2.Enabled = True
End If
End If
End Sub
Private Sub tmrEnemy2_Timer()
If Start = 1 Then
imgEnemy.Left = imgEnemy.Left - 100 * Rnd
If imgEnemy.Left <= 75 Then
imgEnemy.Left = 75
End If
If imgEnemy.Left = 75 Then
tmrEnemy2.Enabled = False
tmrEnemy.Enabled = True
End If
End If
End Sub
i am trying to make it so that
when the object reaches 6350 (left)
it will start to move back to 0 (left) again
im new to VB so im not pretty sure how to do it....
the code above did not work
If Start = 1 Then
imgEnemy.Left = imgEnemy.Left + 100 * Rnd
If imgEnemy.Left >= 6350 Then
imgEnemy.Left = 6350
End If
If imgEnemy.Left = 6350 Then
tmrEnemy.Enabled = False
tmrEnemy2.Enabled = True
End If
End If
End Sub
Private Sub tmrEnemy2_Timer()
If Start = 1 Then
imgEnemy.Left = imgEnemy.Left - 100 * Rnd
If imgEnemy.Left <= 75 Then
imgEnemy.Left = 75
End If
If imgEnemy.Left = 75 Then
tmrEnemy2.Enabled = False
tmrEnemy.Enabled = True
End If
End If
End Sub
i am trying to make it so that
when the object reaches 6350 (left)
it will start to move back to 0 (left) again
im new to VB so im not pretty sure how to do it....
the code above did not work