Zitat:

Welche Probleme gibt es denn noch?

Dim a_form As System.Windows.Forms.Form
a_form = a_Img.FindForm
 With a_form
 If ControlExists(a_form, "lstModes") Then
	If .lstModes.Visible Then
		SlstModes_LostFocus(.lstModes)
		Exit Sub
	End If
 End If
..............
...............