.
.
.
Private Sub ImageAction(ByVal NewH As Long, ByVal OldH As Long, ByVal FName As String, _
ByVal Action As String, Pinfo As PictInfoType)
Dim retval As Long, ActionOK As Boolean
If NewH Then
If Action = "Zoom" Then
ManualResize = True
MDIForm1.NewImage NewH, "Untitled", Pinfo
ElseIf CreateNew Then
MDIForm1.NewImage NewH, "Untitled", MDIForm1.GetPictInfo
Else
If OldH Then retval = ImgClose(OldH)
ManualResize = True
ActionOK = SetUp(NewH, FName, MDIForm1.GetPictInfo)
End If
Else
MsgBox Action & " was unsuccessful"
End If
End Sub
.
.
.
Hierbei sagt der immer den Fehler "ImageActin"