[Athanasios Gardos]

Image detection:

Private Sub Form_Load()
	Dim hShape As Long, Fill_iType As Byte, Fill_lHatchIndex As Long
	Dim Fill_iInForeColor As Integer, Fill_iInBackColor As Integer
	Dim Fill_sPattern As String, Fill_zOrder As Long, Fill_lFlags As Long
	Dim sPic(1) As String
	Call cAvax1.StartAvax
	sPic(1) = "c:\test.bmp"
	hShape = cAvax1.Add_Picture(sPic(), 0, 0, 10, 10)
	If cAvax1.GetShapeFill(hShape, Fill_iType, Fill_lHatchIndex, Fill_iInForeColor, Fill_iInBackColor, Fill_sPattern, Fill_zOrder, Fill_lFlags) = True Then
	   Select Case Fill_iType
	   Case 4
		  MsgBox "BMP Hatch"
	   Case 5
		  MsgBox "WMF Hatch"
	   Case 254
		  MsgBox "BMP picture"
	   Case 255
		  MsgBox "WMF picture"
	   End Select
	End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
	Call cAvax1.EndAvax
End Sub