Private Sub logoanim1_Timer()
    img_titlelogo.Width = img_titlelogo.Width - 1
    DoEvents
    If img_titlelogo.Width < 70 Then
    logoanim1.Enabled = False
    logoanim2.Enabled = True
    End If
End Sub
 
Private Sub logoanim2_Timer()
    img_titlelogo.Width = img_titlelogo.Width + 1
    DoEvents
    If img_titlelogo.Width > 130 Then
    logoanim2.Enabled = False
    logoanim1.Enabled = True
     End If
End Sub