ho fatto così:

Private Sub tab1_Click(PreviousTab As Integer)
If tab1.Tab = 0 Then
frm_macc2.Visible = False
frm_macchina1.Visible = True
End If
If tab1.Tab = 1 Then
frm_macc2.Visible = True
frm_macchina1.Visible = False
End If

End Sub


solo che al primo click non funziona..