Ciao a tutti!
Ho scaricato un ocx ke si kiama freeImage ke ha tra i suoi metodi anke Rotate_Classic, posto il codice ke mi sembra corretto.ù
Non riesco a capire perke' non me la ruota.

--CODE

Dim bOK As Long
Dim DIB As Long
Dim Angle As Double

Angle = 90

' load the file into the DIB
DIB = FreeImage_Load(FIF_TIFF, "MiaImmagine.tif", TIFF_DEFAULT)

If DIB <> 0 Then
' do the rotate
bOK = FreeImage_RotateClassic(DIB, Angle)
If bOK <> 0 Then
' save the rotated file
bOK = FreeImage_Save(FIF_TIFF, DIB, "MiaImmagine.tif", TIFF_DEFAULT)
End If
End If

End Sub

'In un modulo ho le def
Public Declare Function FreeImage_RotateClassic Lib "FreeImage.dll" Alias "_FreeImage_RotateClassic@12" (ByVal DIB As Long, ByVal Angle As Double) As Long

Public Declare Function FreeImage_LoadFromHandle Lib "FreeImage.dll" Alias "_FreeImage_LoadFromHandle@16" (ByVal fif As FREE_IMAGE_FORMAT, ByVal io As Long, ByVal handle As Long, Optional ByVal flags As Long = 0) As Long
Public Declare Function FreeImage_Save Lib "FreeImage.dll" Alias "_FreeImage_Save@16" (ByVal fif As FREE_IMAGE_FORMAT, ByVal DIB As Long, ByVal filename As String, Optional ByVal flags As Long = 0) As Long


CODE--