Hvad er der galt med den her kode?

Jeg er ved at lave et simpelt program hvor du kan bladre dine billeder igennem.
Så får du også lige lidt information om dem så har følgende kode:

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Me.ScaleMode = vbPixels
img_size.Caption = Image1.Width & " x " & Image1.Height
File_size.Caption = FileLen(File1.Path & "\" & File1.FileName)
file_path.Caption = (Main.File1.Path & "\" & File1.FileName)
If Image1.Width <= 400 And Image1.Height <= 400 Then
lille
Else
stor
End If
End Sub

Gider ikke gå i dybten med hele koden da det eneste problem jeg har er:
img_size.Caption = Image1.Width & " x " & Image1.Height

nogen gange går den lidt i kage og siger en forkert størrelse så skal jeg bare klikke 1 gang til på filen og så kommer den med den rigtige størrelse.
Det er dog et stort problem da det jo også afgør om den skal scaleres eller ikke skal så hvorfor er det lige den går i kage når de andre ser ud til at virke fint?