Public Sub GetImageSize(ByVal sImageFile As String, _
                         ByVal nWidth As Long, ByVal nHeight As Long, _
                         TempPic4Size As Image)
    On Local Error Resume Next
    nWidth = 0: nHeight = 0
    With TempPic4Size
        .Picture = LoadPicture(sImageFile)
        If Err.Number = 0 Then
            Debug.Print "kein Fehler"
            nWidth = .Width
            nHeight = .Height
            Else
        End If
    End With
End Sub

Dim nWidth, nHeight As Long
....
GetImageSize sPathImage, nWidth, nHeight, .imgTemp4SizeCalculation
        lngBreite = (nWidth / 15)
        lngHoehe = (nHeight / 15)
..

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD