Habe vor ein paar Tagen einen Code im Forum gefunden den ich nicht zum laufen bekomme. Kann mir jemand mal zum Mitschreiben aufdröseln wie das geht. HAt jemand die Idee schon umgesetzt das er sie mir mal schicken könnte???
Die Frage war:
Wie kann ich erreichen, dass sich eine GIF-Grafik innerhalb einer UserForm bewegt?
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