in debug non genera nessun errore.

Questo e' il codice:

On Error GoTo 0

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


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