HAbe im Archiv folgenden Code gefunden aber leider bekomme ich mein Gif nicht zum laufen. Was muss ich machen???
Hat jemand eine Idee?
StandardModule: basMain
Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Sub CallForm()
frmAnimation.Show
End Sub
ClassModule: frmAnimation
Private Sub cmdStart_Click()
Dim iCol As Integer
Dim iRow As Integer
For iRow = 1 To 4
For iCol = 6 To 216
Sleep SpinButton1.Value
Image1.Left = Image1.Left + 1
DoEvents
Next iCol
Image1.Top = Image1.Top + 12
For iCol = 216 To 6 Step -1
Sleep SpinButton1.Value
Image1.Left = Image1.Left - 1
DoEvents
Next iCol
Image1.Top = Image1.Top + 12
Next iRow
Image1.Top = 6
Image1.Left = 6
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Value = 5
End Sub
Danke
Markus