Private Sub Form_Load()
    Dim MyPict As String
 
    MyPict = App.Path + "\" + "splash.jpg"
    Me.SplashScreenPictBox.Picture = LoadPicture(MyPict)
    Me.SplashScreenPictBox.Width = Me.SplashScreenPictBox.Picture.Width
    Me.SplashScreenPictBox.Height = Me.SplashScreenPictBox.Picture.Height
End Sub