Android Question Change Width of Inputlist

            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