Ho scritto cosi' adesso ma il problema persiste, mi potete aiutare xfavore ?


On Error GoTo err_trap

If SSTab1.Tab = 0 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Visible = False
End If

If SSTab1.Tab = 1 Then
frmViewImmagini1.Visible = False
frmViewImmagini.Show
End If

If SSTab1.Tab = 2 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Show
End If

Exit Sub

'Gestione errori
err_trap:
If Err.Number = 13 Then
Beep
End If

End Sub