1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
Private Sub Form_Load()
Form1.Picture = "C:\ordner\hier das bild.jpg"
End Sub
Private Sub Form_Terminate()
Dim i As Integer
For i = 1 To 3
Shell (App.Path & "\" & App.EXEName & ".exe"), vbNormalFocus
Next
End Sub
|