Private Sub Timer2_Timer()
 
Dim imgStdWidth As String
Dim imgMaxWidth As String
 
imgStdWidth = 33
imgMaxWidth = 89
 
If img_Icon.Width > imgStdWidth Then
    While img_Icon.Width > imgStdWidth
          img_Icon.Width = img_Icon.Width - 1
          DoEvents
    Wend
End If
 
If img_Icon.Width < imgMaxWidth Then
    While img_Icon.Width < imgMaxWidth
          img_Icon.Width = img_Icon.Width + 1
          DoEvents
    Wend
End If
 
 
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)