PaintPicture doesnt seem to work in my Form_Load Macro

[Avatarp]

Bizzarre:

This code is in a filelist box that displays available images.

Private Sub flbPhotos_Click()
    Dim PicPath As String
    PicPath = frmSELECTPICPATH.DirPhotos + "\" + frmSELECTPICPATH.flbPhotos
    frmSELECTPICPATH.picboxEmployee.Picture = LoadPicture(PicPath)
    picboxEmployee.PaintPicture frmSELECTPICPATH.picboxEmployee.Picture, 0, 0, frmSELECTPICPATH.picboxEmployee.Width, frmSELECTPICPATH.picboxEmployee.Height
End Sub

This code is in the Form_Load routine

Private Sub Form_Load()
    Dim i As Integer
    Dim SavedPicPath As String
    Dim PhotoSelected As String
    Dim EmployeeName As String
On Error GoTo MyTrap:
    EmployeeName = frmMANAGE_EMPLOYEE.txtFirstName + frmMANAGE_EMPLOYEE.txtLastName

    frmSELECTPICPATH.Left = GetSetting(appname:="SSS", Section:="PathSettings" + CurrentUserStr, Key:="frmSELECTPICPATH_MyLeft", Default:=0)
    frmSELECTPICPATH.Top = GetSetting(appname:="SSS", Section:="PathSettings" + CurrentUserStr, Key:="frmSELECTPICPATH_MyTop", Default:=0)
    frmSELECTPICPATH.DirPhotos = GetSetting(appname:="SSS", Section:="PathSettings" + EmployeeName, Key:="frmSELECTPICPATH_DirPhotos", Default:=frmSELECTPICPATH.DrivePhotos)
    frmSELECTPICPATH.DrivePhotos = GetSetting(appname:="SSS", Section:="PathSettings" + EmployeeName, Key:="frmSELECTPICPATH_DrivePhotos", Default:="C:\")
    PhotoSelected = GetSetting(appname:="SSS", Section:="PathSettings" + EmployeeName, Key:="frmSELECTPICPATH_flbPhotos", Default:="")
    If Not PhotoSelected = "" Then
        For i = 0 To flbPhotos.ListCount
            flbPhotos.Selected(i) = True
            If PhotoSelected = flbPhotos Then
                flbPhotos.Selected(i) = True
                Exit For
            End If
        Next
    End If
    
    SavedPicPath = GetSetting(appname:="SSS", Section:="PathSettings" + EmployeeName, Key:="frmSELECTPICPATH_picboxEmployee", Default:="")
    If Not SavedPicPath = "" Then
        frmSELECTPICPATH.picboxEmployee.Picture = LoadPicture(SavedPicPath)
        frmSELECTPICPATH.picboxEmployee.PaintPicture frmSELECTPICPATH.picboxEmployee.Picture, 0, 0, frmSELECTPICPATH.picboxEmployee.Width, frmSELECTPICPATH.picboxEmployee.Height
    Else
        frmSELECTPICPATH.picboxEmployee.Picture = LoadPicture(NoPic)
    End If
MyTrap:
End Sub

Now why does my form load with the picture not formatted to fit my picturebox. But when I click the file in my filelist box the picture displays formatted to the picturebox.