Hallo,
ich habe eine Userform geschrieben in der ein Filmchen abgespielt werden kann.
nur lässt sich diese nach Ablauf des Filmes nicht wieder schliessen. Das Unload-Kommando funktioniert so wie ich es versucht habe leider nicht.
Weiss jemand Rat?
Hier der Code:
_______________________________________________
With UserForm1
.MediaPlayer1.FileName = sFile
.MediaPlayer1.Autostart = True
.MediaPlayer1.Left = 0
.MediaPlayer1.Top = 0
.Top = Application.Height / 3.5
.Left = Application.Width / 2.75
.Height = Application.Height / 3
.Width = Application.Width / 3.25
.BackColor = RGB(255, 247, 223)
.Show
End With
unload UserForm1
_______________________________________________