Unit problem setting Left property

1218540

VB6.0

Private Sub Timer_Timer ()
    If Pic_OPbackground.Left = -534 * Screen.TwipsPerPixelX Then
        Timer.Enabled = False
        Text1.Text = "1"
    Else
        Pic_OPbackground.Left = Pic_OPbackground.Left-0.1 * Screen.TwipsPerPixelX
    End If
End Sub

After the execution, only the statements after the else are executed.I tried to set Pic_OPbackground.Left = -534 * Screen.TwipsPerPixelX. There is a problem with the screen. Similar Left Top properties cannot be set in pixels?

PS: VB cannot use the operator "-="?

yoh2006

Pic_OPbackground.Left-0.1 * Screen.TwipsPerPixelX
This sentence is difficult to guarantee Pic_OPbackground.Left = -534 * Screen.TwipsPerPixelX is true
Change to If Pic_OPbackground.Left <= -534 * Screen.TwipsPerPixelX Then


-= Not supported

1218540

Thank youyoh2006for your answer. If you change it to If Pic_OPbackground.Left <= -534 * Screen.TwipsPerPixelX Then, it will take more time to meet the conditions, but after I execute it, the problem still exists.
The key to the problem lies in the interpretation of the sentence Pic_OPbackground.Left = -534 * Screen.TwipsPerPixelX, because I have tried Pic_OPbackground.Left = -534 * Screen.TwipsPerPixelX to set this sentence directly, the display screen is problematic, and the performance phenomenon is Show only background color

张家太太

Can be changed to If Pic_OPbackground.Left <= -534 * Screen.TwipsPerPixelX Then
 The problem should be solved!