' mit Picturebox
Private Sub Form_Load()
  With Me.SplashScreenPictBox
    .ScaleMode = vbPixels
    .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    .AutoRedraw = True
    .PaintPicture LoadPicture(App.Path & "\" & "splash.jpg"), 0, 0, _
      .ScaleWidth, .ScaleHeight
  End With
End Sub

' ohne Picturebox
Private Sub Form_Load()
  With Me
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .PaintPicture LoadPicture(App.Path & "\" & "splash.jpg"), 0, 0, _
      .ScaleWidth, .ScaleHeight
  End With
End Sub

Gruss,

Zardoz