diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb
index 7488a67..1f41112 100644
--- a/MainWindow/MainWindowViewModel.vb
+++ b/MainWindow/MainWindowViewModel.vb
@@ -328,6 +328,8 @@ Namespace EgtCAM5
          IniFile.m_sMachinesRoot = m_sMachinesRoot
          ' Verifico indice di istanza
          ManageIstance()
+         ' Imposto tipo di chiave
+         EgtSetLockType(KEY_TYPE.HW)
          ' Leggo e imposto chiave di protezione
          Dim sLicFileName As String = String.Empty
          GetPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName)