prova questo codice...
codice:
Private Sub Form_Activate()
        txtAcconto.Locked = True
End Sub

Private Sub txtAcconto_Change()
        Dim miaRimanenza As Single
        miaRimanenza = CSng(txtPrezzo) - CSng(txtAcconto)
        txtRimanenza = miaRimanenza
End Sub

Private Sub txtPrezzo_Change()
        txtAcconto = txtPrezzo
        txtRimanenza = txtPrezzo
        txtAcconto.Locked = False
End Sub
ciaociao