Back to .Net Form

Private Sub List_Bases_On_PPC()
    rs.List_Bases()
    Cursor.Current = Cursors.Default
    If rs.DataBase_Count = 0 Then
      MsgBox("No datbases found on the device")
      Exit Sub
    End If
    lstBases.Enabled = True


    lstBases.Items.Clear()

    Dim ict As Integer

    For ict = 0 To rs.DataBase_Count - 1
      lstBases.Items.Add(rs.Databases(ict))
    Next

  End Sub