'******************************************************
'*                   Hauptform Laden                  *
'*               Excel wird global geöffnet           *
'******************************************************
Private Sub Form_Load()
Dim a As Integer
 
Res = GetSetting("Thieme", "Sprachwahl", "Res", "0") 'Res wird aus Registry 
' geladen,
 
Call Sprachwechsel ' Textelemente werden geladen
 
frmhaupt.Combo2.Text = LoadResString(40 + Res) ' Text der ComboBox wird geladen
 
Wahldatei = App.Path & "\wahl.xls"
Set NewPro = New excel.Application
'Datei wird geladen die die Maschinennamen enthält
NewPro.Workbooks.Open FileName:=Wahldatei, password:="test", _
  writerespassword:="test1"
 
a = 1
Do While excel.Range("A" & a) <> ""
    Combo2.AddItem excel.Range("A" & a)
    a = a + 1
Loop
 
NewPro.ActiveWorkbook.Close (Wahldatei)
End Sub