Dim Keuze(Cursor1.RowCount) As String
Dim Nummer(Cursor1.RowCount) As String
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
Keuze(i)=Cursor1.GetString("ProjectID")&" - "&Cursor1.GetString("Naam")
Nummer(i)=Cursor1.GetString("ProjectID")
Next
ProgressDialogHide
Dim Ret As Int
Ret = InputList(Keuze,"Projecten",-1)
If Ret = DialogResponse.CANCEL Then
ToastMessageShow("Afgebroken", False)
CurrentProjectID = ""
Else
CurrentProjectID = Nummer(Ret)
End If