Image und Anzeige nach Zeiteinstellung
23.07.2004 00:56:09
Gerd
habe folgendes Problem:
Ich will, dass ein Startbild nur eine gewisse Zeit
lang erscheint.
Habe folgenden Code eingegeben:
Private Sub UserForm_Activate()
If Dir(ThisWorkbook.Path & "\FIMAPic.gif") > "" Then
Startbild.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\FIMAPic.gif")
Sleep (2000)
Startbild.Hide
Else
MsgBox "Kann kein Startbild finden !"
Unload Startbild
End If
End Sub
Sleep ist als Windows-API deklariert.
Problem ist, dass die Form zwar nach 2000 ms verschwindet,
aber das Bild nie angezeigt wird.
Wer weiß eine Lösung ?
Gruss,
Gerd
Anzeige