class Partei()
  public Wahlversprechen as string
  public Ideologie as string
  public Ausrichtung as string
  private Politgehalt as long
  private Parteien_finanzierung_formal as long
  protected Parteien_finanzierung_informal as long
  protected Korrupt as boolean
  ...
end class

sub mein_Oesterreich()
  dim spoe as Partei
  dim oevp as Partei
  dim fpoe as Partei
  dim bzoe as Partei
  dim piraten as new Partei
  ...
end sub