Private Sub adoData_MoveComplete(...)
  ...
 
    imgProduct.Picture = LoadPicture(sUsrImgDir & "\" & sImgFile)
    GetPictureSize frmPicSize, imgProduct.Picture, nWidth, nHeight, vbPixels
     nWidth = V2Int(nWidth)
     nHeight = V2Int(nHeight)
      StatusBar1.Panels(3).Text = "Bildgröße " & nWidth & "px * " & nHeight & _
        "px"
End Sub